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Preface 



To the best of my knowledge there is no book devoted purely to 
sound on the 64, other than this one (don't all write in and tell me 
if there is!). I've assumed that the reader is reasonably competent 
in Basic, and may even have a little knowledge of machine code 
as well. Consequently, any machine code programs are usually 
presented with a Basic loader program as well, to help those of you 
who have not yet got to grips with both languages. 

The book covers everything concerned with music on the 64, in- 
cluding ring modulation, synchronisation, adding musical commands 
to Basic, and producing interrupt-driven background music. There 
are around 20 major programs listed in the book. For those of you 
whose fingers aren't up to typing in reams and reams of program 
code, the lengthier programs are all available on tape from the pub- 
lishers at a cost of £7.95. 

And with that, happy programming! 

A quick dedication, to Tony and Wendy, and all the bar staff at the 
Swan, in Ashford. Thanks, and may you never run out of bottled 
J.C. 

P.G. 



1 

Introduction to Music 



How many of us have watched a skilful busker playing on a street 
corner, a soloist performing at the last night of the Proms, Jimi Hendrix 
making a guitar talk, Oscar Peterson making a piano dance, and said 
to ourselves 'I wish I could do that'? 

In truth, most people have probably, at one time or another, wanted 
to play a musical instrument of some kind. Some have probably even 
tried to learn how to play the guitar, the piano, the violin, or one of 
the other popular instruments, but have given up in abject failure and 
taken to building up a large record collection instead. 

With the advent of synthesisers, the ability to play music of a sort came 
a step nearer for a lot of people, since anyone can make a noise by 
turning a few buttons and twiddling a few dials. And to all the musicians 
who are convinced that synthesisers will be the death of music as we 
know it (and I know one or two: hello Owen!), give us lesser mortals 
a break and allow us to make a noise or two of our own. A talented 
musician will always coax more out of a synthesiser than an un-talented 
one: they've got an ear for music, whereas most of us haven't. 

Then along came the home computer, and with it some of the most 
sophisticated musical electronics at an affordable price. One such 
computer is, of course, the Commodore 64, arguably the best musical 
computer at the moment. Also, as we all know only too well, it has 
one of the worst Basics of all time when it comes to playing music 
or producing graphics. With the vast number of two commands (PEEK 
and POKE) to enable us to communicate with the sonic and visual 
capabilities of the beast, many people must have decided that 
Commodore can't want us to get the best out of the machine and 
that it isn't worth the effort of remembering where all the memory 
locations are that need to be altered. 

Well, I can't defend the language of the 64 as I too think it is diabolical. 



However, a little persistence will produce some quite satisfactory results 
from the machine, and the purpose of this book is to explore to the 
full the musical performance of the Commodore 64. 



The scope of the book 

When starting to compile a book such as this there are one or two 
questions that the author must ask himself. Principal among these is 
obviously what to include and what to leave out. Include too much 
and you end up with a book that makes War and Peace look like a 
single sheet of A4 paper. Include too little, and the resulting book will 
be about as popular as german measles, so a reasonable balance has 
to be found. I hope I've achieved that, since just about everything is 
covered somewhere in the book, although perhaps not in the detail 
that some people might like. Scores of chapters about ring modulation 
techniques might be of interest to some people, but don't really belong 
in a general book such as this one. On the other hand, leave the subject 
out altogether and we're missing one of the features that makes the 
64 stand out from the rest, and so it is covered in Chapter 8. 

Another problem is the level at which to pitch the book. Do you assume 
that everyone is a machine code genius who knows nothing about 
sound, or a budding Beethoven who couldn't program a computer 
if his life depended on it? As ever, the wisest route is the one down 
the middle of these two extremes. So I've assumed that the person 
who buys this book is reasonably interested in music, and has a fairly 
competent grasp of Basic programming without being able to write 
Easyscript in their sleep. 

The machine code programs in this book only appear towards the end, 
and in case you (a) haven't got an assembler or (b) think an assembler 
is someone who works on a production line at British Leyland, all the 
machine code is presented with a Basic set of equivalent data 
statements. This way, anyone can who can type will be able to get 
the program running. If you understand machine code, you can follow 
the logic of the program. If you don't, you can still get the program 
to perform properly without knowing too much about how it works. 

When learning a new subject, it is always a good idea to have 
something happening as you progress. Therefore, rather than just 
presenting you with a lot of theory that would be about as interesting 
as a slice of bread, most of the chapters in this book have at least one 
reasonably long program in them. Whether this is a utility, a learning 
program, or a simple game, depends on the chapter in question, but 
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there will be something that will enable you to see (and hear) what 
you're learning about. 



Topics covered 

After this brief introduction, we're going to be taking a look at the 
background to music generally, with a little bit about the history of 
music, the development of various instruments, and the actual physics 
of sound: how a note is produced, and how that note is affected by 
various parameters. If physics is not your high point, don't worry: I 
got a grade 6 at O-level, and I understand what I'm on about. 

Then, before diving into the theory and making the 64 produce all 
manner of weird and wonderful noises, any necessary tables will be 
dealt with in one chapter, which will allow them to act as a useful 
reference and keep them all in one place so that you don't have to 
tear around the book in order to discover that the frequency of the 
note middle C is 261.63 hertz. 

A final diversion before we make some sounds is presented in Chapter 
4, which talks about how the 64 performs as a musical instrument, 
and what parameters we have to play with in order to produce the 
desired result. Then, we're off into the realms of music, covering just 
one voice to begin with, then on to three-part harmony, building up 
popular tunes, looking at ring modulation and synchronisation, filtering 
techniques, and so on. 

Most of this is covered in more or less detail in the programmer's 
reference guide. However, it is hoped not only that a fresh approach 
will be useful, but that the programs presented in these early chapters 
will act as educational tools for all levels of competence. 

The last half of the book covers new ground, starting off with building 
the 64 up to be a true synthesiser (filtering, synchronisation of voices, 
background rhythms, glissando effects, and more). This leads on to 
sound effects and games programming with sound, before we end 
up with a look at how background rhythms are produced using 
interrupts, and how new commands can be added to Basic in order 
to make musical life a whole lot easier. Needless to say, there will be 
practical examples to cover all the topics under discussion. 

The final chapter is for those of you who want to know how the 
marvellous 6581 chip works. The 6581 , perhaps better known as the 
SID chip, is a custom-made Commodore chip, rather than an off-the- 
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shelf General Instruments chip which is what everyone else seems to 
use. The difference between the two chips goes a long way towards 
explaining why the 64 stands out above the rest. 



Some conventions 

This is concerned more with the program listings than anything else, 
as the one topic that produces more complaints than anything else 
is the legibility of listings (and of course whether or not they work). 

All the listings in this book were produced on an Epson FX-80 printer, 
operating at half its normal speed in double density print mode. To 
put it another way, the listings are twice as clear as they would normally 
be. They are also printed out to a line width of fifty columns, with 
anything longer wrapping around on to the next line of print. Be careful 
when typing in lines that wrap around this way. Don't be tempted to 
include spaces that might not be there, just carry on typing. 

A large number of the programs have lines that, on the face of it, are 
longer than 80 columns. This is because I am forever using ? instead 
of PRINT, T shifted H instead of THEN, P shifted instead of POKE, 
and so on. If you come across a line that looks inordinately long, you 
will have to use these abbreviations in order to get it to fit. 

A word of warning. The 64 has a curious bug when it comes to entering 
very long lines. If, for some reason, you're at the bottom of the screen 
and realise that you've attempted to go on to the third line of a program 
line (in other words, a line longer than 80 columns) do not try to use 
the delete key to take yourself back onto the second line. The 64 will 
very probably hang, and there is no reliable way to get it back again, 
which means that your precious program will be lost. One possible 
solution is to press the play (or sometimes both play and record) button 
on your tape deck, but this does not work all the time, so take care. 

The Epson printer cannot handle Commodore upper and lower case, 
and so everything appears at first glance to be in upper case only. This 
is not so, as a closer look will reveal that some of the letters are in 
italics. Enter any italicised letters using the shift key, and all the rest 
without the shift key. 

The Epson (without a great deal of time spent programming user- 
defined characters and writing a special program to trap Commodore 
ones and convert them) cannot handle Commodore's control codes 
for things like cursor up, going into black print mode, and so on. 
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Accordingly, all these have been stripped from the program and 
replaced with various mnemonics. These are as follows: 



HOME 


- Home key 


CLR 


- Shift and home key 


DEL 


- Delete key 


INST 


- Shift and delete key 


RVS 


- CTRL key and 9 


OFF 


- CTRL key and 


CU 


- Cursor up 


CD 


- Cursor down 


CL 


- Cursor left 


CR 


- Cursor right 


BLK 


- CTRL key and 1 


WHT 


- CTRL key and 2 


RED 


- CTRL key and 3 


CYN 


- CTRL key and 4 


PUR 


- CTRL key and 5 


GRN 


- CTRL key and 6 


BLU 


- CTRL key and 7 


YEL 


- CTRL key and 8 


BRN 


- CBM key and 2 


SP 


- Space bar 



To enter more than one command at a time, commas and numbers 
are used, as in the following example: 

[CLR,RVS,2CD,5CR] 

This means 'press the shift and home keys, then the CTRL and 9 key, 
then the cursor down key twice and the cursor right key five times'. 
Do not enter any commas, they are only there as separators to make 
things easier to read. 

Needless to say, the Epson is no great shakes when it comes to printing 
out Commodore graphical characters either. Why use an Epson at all 
then? Well, the image is clear, and have you ever tried entering a listing 
from a magazine that has used the standard Commodore dot matrix 
printer? It is virtually impossible to read. 

Accordingly, any graphics characters that needed to be printed have 
also been replaced by mnemonics. These are usually of the form 
'CBMM', which means 'press the CBM key in conjunction with the 
M key', or 'shift*', which means 'press the shift key in conjunction 
with the * key'. On some occasions we differ from this, but if there 
are any changes they are explained in REM statements. 

One last point about the listings. If you can't face typing them in, all 
the longer ones are available on cassette from the publishers, at a cost 
of £7.95. This contains some nineteen programs in all (plus a couple 
of short 'driver' programs), which will save a lot of wear and tear on 
fingers and tempers. 
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Conclusion 

By the end of this book you should be in a position to produce your 
own musical programs, your own background rhythms and tunes (and 
please, please, always give a person the option of turning these off I), 
and be able to add your own musical commands to Basic. 

Before we begin our musical voyage of discovery, we'll take a look 
at the history of music and the theory of sound. 



14 



2 
The Theory of Sound 

Introduction 

While it is not essential to understand how the physics of sound 
operates (just as it isn't essential to know why POKE54272 + 24, 1 5 sets 
the volume control of the 64 to its maximum level), it will make life 
easier as well as making a lot of what we'll be talking about make a 
great deal more sense. 

In the same way, it is not really necessary to know how various musical 
instruments developed (just as you don't need to know that an 
attack/decay rate of 96, a sustain /release rate of and a sawtooth 
wavelength will make one of the voices of the 64 sound rather like 
a trumpet), but again it will help to give you a more thorough 
understanding of how different results and effects are achieved. 

There are five main families of musical instruments: string (e.g. a 
banjo), brass (e.g. a trumpet), woodwind (e.g. a flute), percussion 
(e.g. drums) and keyboard (e.g. a piano), although some, like the harp 
for instance, cannot be classified quite as easily as that. Arguably the 
most important instrument is the human voice, but since the 
Commodore 64 is not very adept at impersonating it we'll leave that 
topic to one side. 

String instruments 

The most common string instrument today is probably the guitar, and 
as you know guitars come in all shapes and sizes. Other members of 
this family include things like the fiddle, the violin (which is basically 
a fiddle played in a different style), the banjo, and many more. Their 
ancestors were lutes, viols, rebecs, etc. Lesser-known string 
instruments include such diverse ones as the autoharp and the zither 
(did you know that Tales from the Vienna Woods' (Johann Strauss) 
includes a zither solo?) 
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The first violin was designed in the late sixteenth century by one 
Gasparo da Salo. Since then the violin has changed very little. Everyone 
has heard of da Salo's most famous pupil, Antonio Stradivari. He made 
around eleven hundred violins, of which about six hundred are still 
in existence. Manage to find one of these, and you've made yourself 
a fortune! How much will a Commodore 64 cost in four hundred years 
time, I wonder? 



Brass instruments 

It is known that early man could punch a hole in the side of an animal 
horn and by blowing across that hole, produce a sound that could 
travel short distances and was useful for communicating. That method 
of blowing over (or indeed into) a hole is still the method used to play 
all the brass instruments, although not many orchestras feature animal 
horns as one of their leading solo performances, thank goodness. 

To improve the sound produced, and thus send signals over even 
longer distances, something larger was obviously needed. This led to 
the development of massive instruments like the Swiss Alpine horn, 
or Alphorn, some of which are twelve feet or more in length. 

Metals were soon put to use to make musical instruments, in the shape 
of short tubes, long tubes, cone-shaped tubes and straight tubes. Holes 
were made in a tube in various places, which could be covered or 
uncovered to change the notes produced by blowing into the tube. 

With the invention of a valve mechanism in 1815, which allowed leading 
holes to extra pieces of tubing to be opened and closed, we begin 
to see instruments that we're familiar with today. Before that, trumpets 
had been used by various monarchs to play pageants and fanfares, 
and other diverse pieces of brass had also appeared. 

Nowadays we have such different instruments as sousaphones (named 
after John Philip Sousa, a bandmaster and composer), tubas, 
euphoniums and so on, and the Commodore 64 can produce a passable 
impersonation of most of these, as we shall see. 



Woodwind instruments 

The modern woodwind instruments with which we are now so familiar 
also have a long history. The ancient pipes of Pan, the Greek god of 
forest, flocks and shepherds, consisted of several pipes of different 
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lengths bundled together. When it was discovered that the work of 
all these different pipes could be achieved by just one pipe with holes 
cut into it at suitable intervals, the type of instrument that is common 
today began to appear. 

Paintings from ancient Egypt and Greece depict the forerunners of 
what we now know as the flute. This began to resemble the modern 
instrument sometime in the Middle Ages, when it was discovered that 
by blowing across the top of the notch (rather liking blowing across 
the top of a bottle) a very pleasing tone could be produced. A tone, 
moreover, that was easy to control. 

Other instruments in this family include the clarinet and the saxophone, 
although some will argue that the latter instrument belongs with the 
brass family. The saxophone was invented in 1842 by one Adolphe 
Sax as a metal equivalent of other woodwind instruments. Some 
musicans can now play two saxophones at the same time, albeit with 
great difficulty, but using the 64 we can easily 'play' three at a time: 
a triumph for computers, perhaps? 

Finally we have the double-reed family of instruments, consisting of 
the oboe, the English horn (which isn't English and isn't a horn!), the 
bassoon and the contrabassoon, the lowest-sounding instrument 
commonly used in an orchestra. 



Percussion instruments 

There seems to be something about percussion instruments that 
appeals to children of all ages, as any parent will know. Give a child 
something to hit that makes a noise (preferably not another child) and 
you'll have a happy little person. 

In this category come such devices as the snare drum, timpani, bass 
drum, gong, triangle, tambourine, and so on. Looking more like 
keyboard instruments but grouped into this section because of the 
way they are played, we also have vibraphones, xylophones, marimbas, 
glokenspiels, and others. Trying to impersonate the sounds made by 
these instruments can be an interesting exercise for the musical 64 
owner. 



Keyboard instruments 

Possibly the easiest of all musical instruments to emulate on the 64 
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are the keyboard ones, such as the piano and the organ. Technically 
the harp comes into this section as well, since it is basically the 'innards' 
of a piano standing on its side. 

We are all now familiar with the sound and sight of the modern 
synthesiser, which has a piano keyboard. Some people take 
synthesisers a bit too far, and think that they can emulate any 
instrument under the sun. Indeed, there is a story that, during one 
recording session, one half of the rock group 10CC was keen to use 
a synthesiser for everything, including playing the bass guitar. This 
upset the bass guitarist of the band considerably, and the resulting 
row was enough to split up the band a short while later. 

We won't be having any such rows, although we will, later on, be 
looking at ways of impersonating various musical instruments. As with 
all things musical connected with computers, the key to getting the 
best sound comes with experimentation. When you consider that, by 
using the pulse waveform, we have the option of using any one of 
255 times 255 pulse widths, of having 255 times 255 different envelope 
shapes, and playing any one of 255 by 255 different notes (some not 
as musical as others), it would be a brave man who would say that 
he knew what every combination sounded like. 

Before giving you a few tables and getting our hands on a 64 keyboard, 
we'll round off this chapter with some musical definitions and a 
discussion of the actual physics of sound. 



Musical notation 

Fortunately for musicians and computer people alike, there is a great 
deal of similarity between the binary system as used by computers 
and the standard musical notation used to determine how long a note 
will be played or a pause will be held. 

Starting with a standard value of one 'beat', for a whole note, this 
is divided up into halves, quarters, eighths, sixteenths and finally a 
thirty-second note, like this: 

© The WHOLE noli 

J The HALF rioti. ( 2 -fc'a - 1 whole) 

J The. QUARTER not (2. •£.» = 1 half ) 

J> The EIGHTH k&_ (2. V-s = L Quarter) 

J The SIXTEENTH nobi- (Z JffcS "- 1 El&HTH ) 
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However, life has a way of getting complicated in even the simplest 
of settings, and there are other notes that we have to consider: the 
dotted notes. These are half as long again as their un-dotted 
companions: 

© . A dotted \a)WA«. note. = 3 d or- 2. o, 

J . A dotted k*lf nets. - 3 J or 2 J. 

J . A dotted qparW note. = 3 J of 2. J 1 . 

J. A dotted eicf^kK r\ote. = 3 1 of Z ^. 

rf. A dotted sixWNtW note- = 3 # or Z rf. 



Pauses, or rests, follow similar rules, and the symbols used to denote 
these look something like this: 



AEST NOTE 

_^ _ WHOLE ©• 

— HALF J 



y quarter. J 

y ElG-HTH J' 

$" SIXTEENTH # 



And just to complicate the scene even further, it is sometimes deemed 
necessary to divide musical notes up into groups of three, referred 
to as triplets, like this: 

TRIPLETS _ 3 _ 

A £ noti. (J) divided into 3 parrs is J J J 
A ^ note. (J) divided into 3 parts ls J J J 
An ■§ note- if) divided Cnte 3 pxds ujJJJ 

Now we know what all the notes look like, how do we go about 
producing notes on the 64? The next chapter contains all the values 
needed for playing any note of the many that the computer is capable 
of, but it's interesting to discover how those values are arrived at. For 
that, we need to delve into a little bit of physics. 
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The physics of sound 

A note is just a series of ripples in the air, rather like the ripples on 
a pond's surface after you've lobbed a pebble into it. The frequency 
of a note depends on the distance between each ripple and the speed 
at which they're travelling. If it takes X seconds for two successive 
peaks to pass the same spot, then the frequency of the note is 1 /X 
hertz. 

Having found our frequency (say 261 .63 hertz, or cycles per second), 
we then need a little bit of mathematics in order to arrive at the values 
we need to POKE into the 64. If we call this frequency FQ, then the 
first part of our series of equations becomes: 

F = INT(FQ/0.05961) 

giving us a value for F. In order to find the high-order value (FH) for 
the frequency (don't worry, I'll explain this in Chapter 4), we then need: 

FH = INT(F/256) 

To find the low order value, FL, we need to repeat the above equation 
without taking the INTeger value of it. What we're interested in this 
time is the value after the decimal point: say, 0.9856. Our equation 
for finding FL becomes: 

FL = 256-256*0.9856 

or whatever the decimal value worked out to be. Using these equations 
we could find out the high order and low order values for any note 
we like. For convenience, these are grouped together in one of the 
tables in Chapter 3. You may disagree with some of the values given 
(as does our synthesiser program later on in Chapter 10), so don't feel 
that you always have to use those values. A slight change will 
sometimes be required in order to make the note 'feel' exactly right. 
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Musical Tables and Values 



This collection of tables and musical values should enable you to play 
any note on the Commodore 64. They're all grouped together here 
in order to make it easy to find them, rather diving all over the book 
and having the pages scattering to the four corners of your room. 



Equal tempered musical scale 



MUSICAL 


FREQ 


OSC Fn 


OSC Fn 


MUSICAL 


FRED 


OSC Fn 


OSC Fn 


NOTE 


(Hz) 


(DECIMAL) 


(HEX) 


NOTE 


(Hz) 


(DECIMAL) 


(HEX) 





CO 


16.35 


274 


0112 


48 


C4 


261.63 


4389 


1125 


1 


CO* 


17.32 


291 


0123 


49 


C4* 


277. IS 


4650 


122A 


2 


DO 


18.35 


308 


0134 


50 


D4 


293.66 


4927 


133F 


3 


DO* 


19.44 


326 


0146 


SI 


D4# 


311. 13 


5220 


1464 


4 


EO 


20.60 


346 


01SA 


52 


E4 


329.63 


5530 


159A 


S 


FO 


21.83 


366 


016E 


53 


F4 


349.23 


5B59 


16E3 


6 


F0# 


23.12 


388 


0184 


54 


F4# 


370.00 


6207 


183F 


7 


GO 


24.50 


411 


01BB 


55 


G4 


392. OO 


6577 


19B1 


S 


GO* 


25.96 


435 


01B3 


56 


E4# 


415.30 


6968 


1B38 


9 


AO 


27.50 


461 


01CD 


57 


A4 


440.00 


7382 


1CD6 


10 


AO* 


29.14 


489 


01E9 


58 


A4* 


466.16 


7821 


1E8D 


11 


BO 


30. B7 


518 


0206 


59 


B4 


493.88 


8286 


20SE 


12 


CI 


32.70 


549 


0225 


60 


C5 


523.25 


8779 


224B 


13 


CI* 


34.65 


581 


0245 


61 


C5» 


554.37 


9301 


2455 


14 


Dl 


36.71 


616 


026B 


62 


DS 


5B7.33 


9854 


267E 


IS 


Dl* 


38.89 


652 


02BC 


63 


D5* 


622.25 


10440 


28C8 


16 


El 


41.20 


691 


02B3 


64 


E5 


659.26 


11060 


2B34 


17 


Fl 


43.65 


732 


02DC 


65 


F5 


698.46 


11718 


2DC6 


IB 


Fl* 


46.25 


776 


0308 


66 


F5# 


740.00 


12415 


307F 


19 


SI 


49.00 


822 


0336 


67 


G5 


783.99 


13153 


3361 


20 


Gl* 


51.91 


871 


0367 


68 


G5* 


830.61 


13935 


366F 


21 


Al 


55.00 


923 


039B 


69 


AS 


880. OO 


14764 


39AC 


22 


Al* 


58.27 


978 


03D2 


70 


AS* 


932.33 


15642 


3D1A 


23 


Bl 


61.74 


1036 


040C 


71 


BS 


987.77 


16572 


40BC 


24 


C2 


65.41 


1097 


0449 


72 


C6 


1046.50 


17557 


4495 


25 


C2* 


69.30 


1163 


048B 


73 


C6* 


1108.73 


18601 


48A9 


26 


D2 


73.42 


1232 


0400 


74 


D6 


1174.66 


19708 


4CFC 


27 


D2* 


77.78 


1305 


0519 


75 


D6* 


1244.51 


20897 


518F 


28 


E2 


82.41 


1383 


0567 


76 


E6 


1318.51 


22121 


5669 


29 


F2 


87.31 


1465 


05B9 


77 


F6 


1396.91 


23436 


5B8C 


30 


F2# 


92.50 


1S52 


0610 


7B 


F6* 


1479. 9B 


24830 


60FE 


31 


G2 


98.00 


1644 


066C 


79 


B6 


1567.98 


26306 


66C2 


32 


B2* 


103. S3 


1742 


06CE 


80 


86* 


1661.22 


27871 


6CDF 


33 


A2 


110.00 


1845 


0735 


81 


A6 


1760.00 


2952B 


735B 


34 


A2* 


116.54 


1955 


07A3 


82 


A6« 


1864.65 


31284 


7A34 


3S 


B2 


123.47 


2071 


0B17 


83 


B6 


1975.53 


33144 


8178 


36 


C3 


130.81 


2195 


0893 


84 


C7 


2093.00 


35115 


892B 


37 


C3* 


138.59 


2325 


0915 


85 


C7* 


2217.46 


37203 


9153 


38 


D3 


146. B3 


2463 


099F 


86 


D7 


2349.32 


39415 


99F7 


39 


D3* 


155.56 


2610 


0A32 


87 


D7* 


2489.01 


41759 


A31F 


40 


E3 


164.81 


2765 


OACD 


88 


E7 


2637.02 


44242 


ACD2 


41 


F3 


174.61 


2930 


0872 


89 


F7 


2793.83 


46873 


B719 


42 


F3* 


185.00 


3104 


0C20 


90 


F7* 


2959.95 


49660 


C1FC 


43 


S3 


196.00 


3288 


OCDB 


91 


G7 


3135.96 


52613 


CDB5 


44 


S3* 


207.65 


3484 


0D9C 


92 


87* 


3322.44 


55741 


D9BD 


45 


A3 


220.00 


3691 


0E6B 


93 


A7 


3520.00 


59056 


E6B0 


46 


A3* 


233.08 


3910 


0F46 


94 


A7* 


3729.31 


62567 


F467 


47 


B3 


246.94 


4143 


102F 


95 


B7 


3951.06 


*662BB 


•1F2F0 



21 



Musical values 

Here middle C has been denoted as C-4. 



Note 



Note -Octave 



Hi Freq 



low Freq 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



C-0 




C#-0 




D-0 




D#-0 




E-0 




F-0 




F#-0 




G-0 




G#-0 




A-0 




A#-0 




B-0 


2 


C-l 


2 


C#-l 


2 


D-l 


2 


D#-l 


2 


E-l 


2 


F-l 


2 


F#-l 


3 


G-l 


3 


G#-l 


3 


A-l 


3 


A#-l 


3 


B-l 


4 


C-2 


4 


C#-2 


4 


D-2 


4 


D#-2 


5 


E-2 


5 


F-2 


5 


F#-2 


6 


G-2 


6 


G#-2 
A- 2 
A#-2 


6 
7 
7 


B-2 


8 


C-3 


8 


C#-3 


9 


D-3 


9 


D#-3 


10 


E-3 


10 


F-3 


11 


F#-3 


12 


G-3 


12 



18 

35 

52 

70 

90 

110 

132 

155 

179 

205 

233 

6 

37 

69 

104 

140 

179 

220 

8 

54 

103 

155 

210 

12 

73 

139 

208 

25 

103 

185 

16 

108 

206 

53 

163 

23 

147 

21 

159 

60 

205 

114 

32 

216 
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Not e Note -Octave Hi Freq Low Freq 

44 G#-3 13 156 

45 A-3 14 107 

46 A#-3 15 70 

47 B-3 16 47 

48 C-4 17 37 

49 C#-4 18 42 

50 D-4 19 63 

51 D#-4 20 100 

52 E-4 21 154 

53 F-4 22 227 

54 F#-4 24 63 

55 G-4 25 177 

56 G#-4 27 56 

57 A-4 28 214 

58 A#-4 30 141 

59 B-4 32 94 

60 C-5 34 75 

61 C#-5 36 85 

62 D-5 38 126 

63 D#-5 40 200 

64 E-5 43 52 

65 F-5 45 198 

66 F#-5 48 127 

67 G-5 51 97 

68 G#-5 54 111 

69 A-5 57 172 

70 A#-5 61 126 

71 B-5 64 188 

72 C-6 68 149 

73 C#-6 72 169 

74 D-6 76 252 

75 D#-6 81 161 

76 E-6 86 105 

77 F6 91 140 

78 F#-6 96 254 

79 G-6 102 194 

80 G#-6 108 223 

81 A-6 115 88 

82 A#-6 122 52 

83 B-6 129 120 

84 C-7 137 43 

85 C#-7 145 83 

86 D-7 153 247 

87 D#-7 163 31 

88 E-7 172 210 

89 F-7 183 25 

90 F#-7 193 252 

91 G-7 205 133 

92 G#-7 217 189 

93 A-7 230 176 

94 A#-7 244 103 
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Envelope rates 



Value 


Attack Rate 


Decay/ Release Rate 


Dec 


Hex 


(Time/ Cycle) 


(Time/ Cycle) 






ms 


ms 








2 


6 


1 


1 


8 


24 


2 


2 


16 


48 


3 


3 


24 


72 


4 


4 


38 


114 


5 


5 


56 


168 


6 


6 


68 


204 


7 


7 


80 


240 


8 


8 


100 


300 


9 


9 


250 


750 


10 


A 


500 


1 .5 sec 


11 


B 


800 


2.4 sec 


12 


C 


1 sec 


3 sec 


13 


D 


3 sec 


9 sec 


14 


E 


5 sec 


15 sec 


15 


F 


8 sec 


24 sec 



ADSR settings 

We'll explain what ADSR actually stands for in the next chapter. For 
now, it suffices to show you what values control what effects. 

ATTACK/DECAY RATE SETTINGS 

ATTACK/ DECAY HIGH MEDIUM LOW LOWEST HIGH MED. LOW LOWEST 
SETTING ATTACK ATTACK ATTACK ATTACK DECAY DECAY DECAY DECAY 



VOICE 1 


54277 


128 


64 


32 


16 


8 


4 


2 


1 


VOICE 2 


54284 


128 


64 


32 


16 


8 


4 


2 


1 


VOICE 3 ] 54291 


128 


64 


32 


16 


8 


4 


2 


1 



SUSTAIN/RELEASE RATE SETTINGS 

SUSTAIN/ RELEASE HIGH MEDIUM LOW LOWEST HIGH MED. LOW LOWEST 

CONTROL SETTING SUSTAIN SUSTAIN SUSTAIN SUSTAIN RELEASE RELEASE RELEASE RELEASE 



VOICE 1 


54278 


128 


64 


32 


16 


8 


4 


2 


1 


VOICE 2 


54285 


128 


64 


32 


16 


8 


4 


2 


1 


VOICE 3 


54292 


128 


64 


32 


16 


8 


4 


2 


1 
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SID chip description 

The SID chip, which allows us to create all our weird and wonderful 
noises, has 28 registers that it will allow us to alter. In Chapter 4 we'll 
explain what they all do, but for now: 

Register Description 
(54272 + ) 

00 Low frequency value of note for voice 1 

01 High frequency value of note for voice 1 

02 Low pulse rate for voice 1 

03 High pulse rate for voice 1 

04 Waveform for voice 1 

05 Attack/decay for voice 1 

06 Sustain /release for voice 1 

07 Low frequency value of note for voice 2 

08 High frequency value of note for voice 2 

09 Low pulse rate for voice 2 

10 High pulse rate for voice 2 

1 1 Waveform for voice 2 

12 Attack/decay for voice 2 

13 Sustain /release for voice 2 

14 Low frequency value of note for voice 3 

15 High frequency value of note for voice 3 

16 Low pulse rate for voice 3 
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17 High pulse rate for voice 3 

18 Waveform for voice 3 

19 Attack/decay for voice 3 

20 Sustain /release for voice 3 

21 High frequency cut-off 

22 Low frequency cut-off 

23 Turn on filtering 

24 Set volume for all three voices, plus 
select filter type 

25 Access to output of envelope generator 
of voice 3 

26 Access to Y potentiometer reading on pin 
23 

27 Digitised output from voice 3 

28 Digitised output from envelope generator 
number 3 
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4 
What the 64 Lets Us Do 



From the tables in the previous chapter you might surmise that the 
64 lets us do quite a lot, and you'd be right. But before we can even 
play a note, there are some more definitions and facts to be learnt. 

The 64: an overview 

The Commodore 64 has a remarkably gifted sound capability, courtesy 
of the 6581 SID chip. You don't need to be a musician to use this 
machine, although if you are, the keyboard and other musical programs 
will probably help you begin to understand how it all works, and 
certainly the table of musical notes given in Chapter 3 will be of great 
use when transposing music. 

What you will need to know are the ways in which the Commodore 
64 uses its powerful SID chip, the memory registers that are affected, 
and the power at your disposal. SID can control three voices, each 
one having a practical octave range of 8 octaves. Unfortunately we 
don't have separate volume controls over each voice, but have to 
change them all at the same time. This is not unusual among musical 
chips on home micros, but it is unusual on the 64, since this is a custom- 
built chip. There are also some locations (one for each voice) which 
don't actually do anything, which leads one to suspect that someone 
may have wanted to include separate volume controls and thus left 
the space in there to provide them, but someone else decided not to. 
A shame, because that is about all this chip lacks. 

For each voice we have control over four waveforms, namely triangle, 
sawtooth, variable pulse, and noise. Our three envelope generators, 
combined with ring modulation, programmable filters and the rest give 
SI D the same sort of capabilities as many a more expensive dedicated 
synthesiser. It is a relatively easy matter to produce successful 
impersonations of many musical instruments, and later on we'll be 
doing just that, as well as giving you a number of sample tunes and 
programs to type in. 
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Three voices 

The waveform for each of the three voices can be changed using the 
appropriate register, and each voice can independently mimic a wide 
variety of musical instruments. In order to do that, we have to adjust 
a variety of settings, and we'll start by looking at attack, decay, sustain 
and release, collectively known as ADSR. 

These measure the length of time it takes a note to come to its 
maximum volume, and the time taken to go back to total silence, and 
then the length of time for which it will maintain its maximum volume 
before letting go again. 

In Chapter 3 we gave the values for adjusting these settings, and these 
values are combined in the following way. If, for voice one, we POKE 
54277 with 16, we have the lowest attack rate, and no decay. POKEing 
it with 20 would give us the same attack rate, but this time a medium 
decay, as 20 is a combination of the settings for 16 and 4. POKEing 
54272 with 72 would give us a medium attack and a high decay, and 
so on. 

Sustain/release works in exactly the same way. POKEing 54278 with 
40 would give us a low sustain and a high release, as 40 is a combination 
of 32 (low sustain) and 8 (high release). 

Before even playing a note, we've got to know how to turn the voices 
on, and a look at the table in the previous chapter will show us that 
to set the volume (always wise!) we need to POKE 54296, and we can 
use any number from (silence) through to 15 (maximum volume). 
This location controls a few other things as well, as we'll be seeing 
in later chapters. 

Then we must select the waveform we require. For voice one, this 
is achieved by altering location 54276, and there are four values we 
can put in there: 

17 : gives us a triangle waveform. 

33 : gives us a sawtooth waveform. 

65 : gives us a pulse waveform. 

129 : generates white noise. 
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We'll go into waveforms in more detail later, but all we need to know 
now is the actual note that we want to play, and this is got by POKEing 
locations 54273 and 54272 for voice one with the high frequency and 
the low frequency respectively of the note to be played. 

By playing with the ADSR settings and the waveforms you should 
be able to work out one or two instruments for yourself, and the 64 
can manage to produce impersonations of such instruments as banjos, 
pianos, harpsichords, accordions, and many more. 

So far we haven't really mentioned the third waveform produced by 
POKEing S + 4 with 65. This is because this pulse wave requires a 
couple more parameters than the other three, known as the pulse 
width. 

You can see the memory locations that need to be altered by looking 
at the chart in Chapter 3, and the values that go into the locations 
behind on the sort of pulse wave you want to create: more in a minute. 



Down to business 

To use music, or noise, properly on the 64 you need to know a little 
about the theory behind it all. Which is not to say that, if you don't 
know the first thing about sound waves, or what the difference 
between a sawtooth and a triangle is, or you think envelope generating 
is something to do with a trip to the post office, you won't get a lot 
of enjoyment out of the 64's SID chip. Using just what we've learnt 
in the first section of this chapter should keep you busy impersonating 
various instruments, generating wonderful explosions, or whatever, 
for a long time to come. However, the SID chip is capable of a lot 
more than the little bit we've looked at so far. 



Different waveforms 

As we've seen, frequency is a measure of the number of waves passing 
a fixed point in one second. There are other features associated With 
every form of wave, and the principal of these is amplitude: simply 
a measure of how large or small the wave is. 

Thus, waves produced by dropping a stone into a pond will have a 
small amplitude, whereas waves down on the local beach will generally 
have a large amplitude. The following diagram should help to illustrate 
this: 
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Direction of Wave 



in in mm 

High pressure Low pressure 



High 



Low 





Amplitude 



Small amplitude Larger amplitude 





1 second 



Frequency = Number of 

waves passing a fixed 

point in one second 



Another term you might come across is pitch. This is just another way 
of reckoning up the frequency of a note: notes with a high frequency 
are said to have a high pitch, and those with a low frequency to have 
a low pitch. However, notes of the same pitch played by different 
instruments can sound remarkably different. This is due to the shape 
of the waveform that the instrument is generating, and all waveforms 
are made up of a variety of different sine waves. 



, i Amplitude 
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This is the waveform on which all others are based, and any other 
waveform can always be reduced to a mixture of sine waves of different 
frequencies. The main wave is called the fundamental one, and 
determines the pitch of the note, or frequency; this is often called the 
fundamental frequency. 

The rest of the waveform consists of variations on this fundamental 
frequency, and these variations are called harmonics. Thus a note 
consists of its fundamental frequency, and all the harmonics of that 
frequency. The frequencies of the harmonics are calculated from the 
fundamental: that of the second harmonic is twice that of the 
fundamental (or first harmonic), the third harmonic has three times 
the frequency, and so on. 

The number and mixture of harmonics go together to make up the 
overall quality, or timbre, of the note. The amount of each harmonic 
present is related to the square of the harmonic number, so that the 
second harmonic is 1/(2*2), or one quarter, as loud as the first one, 
the third is 1/(3*3), or one ninth as loud as the first one, and so on. 

Now that we know all that, let's have a look at the shape of the 
waveforms generated by the Commodore 64. 
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PULSE. 

"width 




The first one is a sine wave, reproduced here for reference. The second 
is the sawtooth wave, and a look at the diagram will readily show you 
how it gets its name. Sawtooths contain all the harmonics, and can 
be tremendously difficult to calculate, which is why precise musical 
impersonation can be rather difficult. The third diagram shows the 
triangular wave. These are much easier to calculate, as they contain 
only the odd harmonics (i.e. the first, third, fifth, and so on). The fourth 
diagram is that of the pulse waveform, and when using this on the 
64 we have to know a little bit more about it. 

On the diagram we've indicated the pulse width, or the width of each 
pulse of the waveform. These must be calculated for use on the 64, 
and the formula goes as follows: 

P = PW/40.95% 
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where PW is the actual pulse width. If this is equal to 2048, for instance, 
we have a pure square wave. 

The pulse width is made up of two components as far as the 64 is 
concerned, a high and a low width, and these values for voice 1 are 
POKEd into locations 54274 and 54275 for voice 1. The high width 
lies between and 15, and the low width between and 255. 

Looking at our earlier square wave, to program this into the machine 
we'd have to: 

POKE 54275,8: POKE 54274,0 

in the traditional high-low form, as $0800 is equal to 2048 in decimal 
terms. 

The final waveform is the noise one, a purely random collection of 
waves, which is used mainly for creating sound effects and frightening 
the neighbours. 

To look at each individual note, as we've seen, we need to study the 
attack/decay and sustain /release of the note. In graphical form, a 
typical note might look something like this: 



.AMPLITUDE 



RELEASE 




\4_THIS SIOE ISA MlAAOft. 
\ IMAGE. OF THE TOP 



We've plotted amplitude against time, and shown the relevant four 
sections of the note. 
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Knowing all this, perhaps you might like to turn to some of our Close 
Encounter programs and amend them to make them sound rather more 
interesting! 



Envelope generation 

We have in fact already covered this, so it can't be as frightening as 
it sounds. Envelope generation is just the term used to describe making 
up the attack/decay and sustain /release parts of a note. 
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Just by altering these four parameters, as we've already seen, we can 
produce some exciting effects. 



Filtering 

There are three different types of filter on the 64 (see earlier for the 
values of the relevant memory locations), and these three filters affect 
the shape of the harmonic content of a waveform. 

The three filters are a high pass one, which passes all the frequencies 
above a POKEd cut-off point, a low-pass filter, which, as you might 
guess, passes frequencies below a specified cut-off point, and a band- 
pass filter, which passes everything with a specified narrow band, and 
attenuates everything else. 

These can be combined in a variety of ways, and we'll be taking a 
closer look at this in Chapter 9. 



Conclusion 

That rounds off our overview of the SID chip, and should give you 
some idea of the power behind it. But we haven't even made a sound 
yet, I hear you cry. Don't despair. Chapter 5 will set that to rights as 
we start, at last, to produce some musical notes. 



35 



5 
In Which We Play a Tune 



So far we've had nothing but theory, so it's about time that we began 
putting that theory into practice and making a little bit of noise. The 
remaining chapters in this book contain a wealth of musical and ndt- 
so-musical programs, but for now we're going to content ourselves 
with playing a note, and then, sticking with just one voice, producing 
a tune or two. 

To produce even a single note we must put values into a lot of memory 
locations, and we have to be careful about the order in which we alter 
those locations as well. Thankfully, for playing a complete tune, we 
usually only have to alter two locations continually, so after the hard 
work of setting everything up has been done, we don't need to worry 
about the rest of them again. 

First of all, make sure that the volume on your television set is turned 
up to an acceptable level. An obvious point maybe, but I have seen 
people spend a good five or ten minutes tinkering with a program trying 
to work out why it isn't issuing a sound, only for some amused onlooker 
to walk up and turn the volume control on the set. 

Secondly, it makes sense to define a base value that we'll refer to, 
rather than keep typing out extremely large numbers that are very easy 
to get muddled up. So, for want of a better letter, we'll use the letter 
V to be the base location for voice one, and we'll define V in the 
following way: 

10 V=54272 

11 REM SET BASE VALUE FOR VOICE ONE 

Having got that out of the way, we'll need to worry about the attack, 
decay, sustain and release settings. A long decay can mean that a 
note takes an infinity to die away, and if it's a high-pitched note every 
dog in the vicinity will be driven slowly round the bend. So, incidentally, 
will you. 
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We'll go for a few middle-of-the-road settings: 

20 POKEV+5,9:POKEV+6,0 

21 REM SET A LOW ATTACK, REASONABLE DECAV, ZERO 
SUSTAIN AND RELEASE 

What sort of waveform should we have? We'll go for a pulse one, 
and get all the settings in the one program. Choosing a pulse waveform 
means that we'll have to choose a pulse width as well. The following 
lines will give us a sound something like a piano: 

30 POKEV+4, •■ POKEV+2, 255 = POKEV+3, = POKEV+4, 65 

31 REM MAXIMIMUM LOW ORDER, ZERO HIGH ORDER, AND 
SELECT PULSE WAVEFORM 

Now all we need to worry about is turning on the volume: 

40 POKEV+24,15 

41 REM SET VOLUME AT MAXIMUM 

Now we can play a note. Let's go for middle C: and a glance at the 
appropriate table in Chapter 3 shows us that middle C has a value of 
4 for the high order frequency, and 73 for the low order frequency. So: 

50POKEV+0,73 = POKEV+1,4 
51 REM MIDDLE C 

There we have it: a Commodore 64 playing middle C and sounding 
very like a piano. Well, similar anyway. 

By altering the pulse width you can produce some quite interesting 
results. Insert the following two lines into your program, and change 
line 30 as indicated: 

25 F0RI=1T0255 
55 NEXTI 

30 POKEV+4, : POKEV+2, 255 = POKEV+3, 1 = POKEV+4, 65 

This sounds weird and wonderful, as we rapidly alter the pulse width. 
For a more gradual change, alter lines 25, 30 and 55 as indicated. 

25 F0RI=1T0255=F0RJ=1T0255 

30 POKEV+4, s POKEV+2, J = POKEV+3, 1 = POKEV+4, 65 

55NEXTJ,I 
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This alters both the high pulse width and the low pulse width, and 
sounds quite interesting. Altering the pulse width in this way is just 
one of the methods used to produce some amusing sounds. Using 
different waveforms in this program will sound pretty boring, since 
they don't have any pulse widths to alter, and so all that will happen 
will be a collection of strange noises. However, if one were to change 
the program slightly, and start altering the values POKEd in for the 
high and low frequencies of the note itself— well, just type it in and 
listen to what happens. 

18 v=54272 

20 POKEv+5,9=POKEv+6,0 

30FORI=1TO255 = FORJ=1TO50 

40 POKEV+4,0-POKEv+4,17 

50 POKEV+24,15 

60POKEv+l,J:POKEv+0,I 

70 NEXT J, I 

This will eventually begin to sound pretty unbearable as I approaches 
values over about 80 or so. A slightly more interesting approach would 
be as follows: 

10 V=54272 

20POKEv+5,36 = POKEv+6,36 

25 POKEV+24,15 

30 FORI=0TO50=FORJ=0TO58 

40POKEv+4,0 = POKEv+4,33 

50POKEv+l,J = POKEv+0,I 

60 NEXTJ 

70 FORJ=50TO0STEP-1 

80 POKEv+4,0=POKEv+4,33 

90 POKEv+l,J=POKEv+0,I 

100 NEXTJ 

110 NEXTI 

120 GOTO30 

This results in a never-ending supply of noise, and illustrates how 
progressive loops can be used to produce some, at times, bizarre 
results. If we were to alter the pulse width (using a pulse waveform, 
of course) in conjunction with these loops, the sounds would get very 
interesting. 
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Noise 

Using the noise waveform, we can go even further: 

18 V=54272 

28 P0KEv+5,36:p0KEv+6,36 

25 POKEV+24,15 

30 FuRI=0TO50:FuRJ=0TO50 

40 POKEv+4,0=POKEV+4,129 

58 POKEV+l,J=POKEv+0,I 

60 NEXTJ 

70 FORJ=50TO0STEP-1 

80 PuKEv+4,0=POKEv+4,129 

90 POKEv+l,J=POKEV+0,I 

100 NEXTJ 

110 NEXTI 

120 GOTO30 

So you see, just a couple of simple changes to the listing, and a whole 
new world opens up in terms of bizarre noises. Without knowing 
anything about ring modulation and synchronisation (to say nothing 
of filtering techniques) we can already produce some very interesting 
sounds. What we haven't produced yet, though, is a tune, and one 
easy way of doing this is as follows. 

In tune 

We could have a whole series of POKE statements for each and every 
note, but that could get a little tedious after a while, and so it makes 
rather more sense to have all the notes stored as data statements. 

Using the table in Chapter 3, we could easily produce a program that 
would play the scale of C major. 

10 V=54272 

20 POKEV+5,9=POKEv+6,0 

30POKEv+24,15 

40 POKEV+2, 255 = POKEV+3, = POKEv+4, 65 

58 READA,B,C 

60 IFA=-1THEN100 

70POKEv+4,0 = POKEv+4,65 

80 POKEY +1 , B : POKEv+8 , C = F0RI=1T0A*58 = NEXT 
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98 GOTO50 

108 FORI=8TO24=POKEV+I,0=NEXT 

1000 DATA5, 4, 73, 5, 4, 208, 5, 5, 103, 5, 5, 185 

1010 DATA5, 6, 108, 5, 7, 53, 5, 8, 23, 5,8, 147 

1020 DATA-1, 0,0 

Or, if you want something a bit more tuneful, how about this: 

10 V=54272 

20POKEV+5,9 = POKEV+6,0 

30POKEV+24,15 

40POKEV+2,255:POKEY+3,0:POKEU+4,65 

50READA,B,C 

60 IFA=-1THEN100 

70POKEV+4,0:POKEV+4,65 

80 POKEV+l,B=POKEV+0,C=FORI=lTOft*50=NEXT 

90 GOTO50 

100 FORI=0TO24:POKEV+I,0=NEXT 

1000 DATA5, 4, 73, 5, 5, 5, 103, 5, 6, 108, 5, 7, 53 

1010 DATA5, 7, 163, 5, 7, 53, 5, 6, 108, 5, 5, 103 

1020 DATA-1, 0,0 

The start of a simple boogie riff. This method of playing tunes will 
be returned to in the next chapter when we start considering the use 
of more than one voice. 



Further techniques 

As we are only using the one voice here, it is a little bit difficult to 
consider any of the more advanced features of the machine, since most 
of them rely on'bouncing' one voice off another. Synchronisation, for 
instance, literally synchronises one voice with another, and if one voice 
is silent (as so far we're only using one voice in total) not a lot is going 
to happen. 

The most startling effects that can be achieved with one voice (be 
it voice one, two or three), depend on the use of pulse or noise 
waveforms. If we're using noise, then we can produce effects rather 
like explosions, percussion instruments, or, with a little bit of fiddling 
around, you can produce a passable impersonation of a game of squash 
being played! 

With pulse waveforms, our effects come chiefly from altering the pulse 
width and studying the changes in the note as the width changes. 

40 



Rapid effects come from altering the high frequency of the note, more 
subtle ones from altering the low frequency. Filtering, and altering the 
frequency at which a note is cut off, can also be quite interesting, but 
we'll consider this in more detail in Chapter 9. 



Conclusion 

There is a lot that can be done with just one voice, but two or more 
are always better. One voice is chiefly used to play a background tune 
in a game, say, as we'll be seeing later on. Indeed, you could have 
two voices bouncing off each other, and reserve the third for the special 
'explosion' noises, or whatever. 

But with one voice, it's worth playing about with pulse widths and 
noise waveforms just to see (or rather, hear) what happens. 
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6 
Three-Part Harmony 



Introduction 

From here on we're going to start using some slightly longer programs 
to illustrate the techniques that we'll be talking about. If at any time 
your nerve fails you, and the thought of typing in yet another line of 
code is beginning to drive you to despair, remember that all the longer 
programs are available on one cassette from the publishers, 
Duckworth, at a price of £7.95. 

In the previous chapter we were using just one voice to play notes 
or a simple tune, but with three voices available to us on the 64 it 
obviously makes sense to strive for greater things. On a fairly minor 
level that's what we'll be looking at in this chapter, since we're going 
to be concentrating on getting the groundwork out of the way before 
settling down to the more complicated side of things. 

Using the techniques explored in the last chapter, we can use all three 
voices on the 64 to play a familiar little tune: an ordinary boogie riff. 
I keep picking this as an example because it's a straightforward tune, 
because anyone can tell if they've typed in a wrong note in a tune 
as simple as this, and finally because I'm in a similar position to Jimmy 
Hill when he talks about football: fine on theory, not so good on 
practice. My ear for music is, well, not the best one you're ever likely 
to come across! 



Sing a song 

Although the main program here is fairly short, you might have a bit 
of trouble with all the data statements, since there are quite a lot of 
them. Still, perseverance has its own reward as they say, so stick with 
it. 

As with most of the programs presented in this book, a line-by-line 
explanation follows the listing. 
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90 P0KE532B0 . s P0KE5328 1 . s PR I NT " t CLR . YEL 3 " : 

100 PR I NT "MORE MUSIC FROM MR. BUTTERFIELD 

110 11 =54272 : I 2=54279 : I 3=54286 

120 Hl=Il+l:H2=Il+isH3=I3+l 

130 Vl=Il+4:V2=I2+4sV3=I3+4 

140 POKE 11+24,15 

150 P0KEVl+l,9:P0KEVl+2.0 

1 60 P0KEV2+ 1,36: P0KEV2+2 . 36 

170 P0KEV3+1.18:P0KEV3+2.250 

175 P0KE1 1+2. 255sP0KEI 1+3.0 

180 T=TI 

200 POKE V 1 . 64 s P0KEV2 . 1 28 : P0KEV3 . 32 

2 1 READS s I FS=OTHENRESTORE : G0TD2 1 

220 READ X1.Y1.X2,Y2.X3,Y3 

230 IFX1THENP0KEH1.X1:P0KEI1.Y1:P0KEV1.65 

240 IFX2THENP0KEH2.X2:P0KEI2.Y2:P0KEV2.129 

250 I FX3THENP0KEH3 , X3: POKE 1 3 , Y3s P0KEV3 . 33 

260 T=T+S 

270 IFT>TITHEN270 

280 B0T02O0 

290 F0RJ=I1T054296:P0KEJ.0:NEXT 

300 DATA 15.17,37.68,149,4.73 

310 DATA 15.21.154.0.0,0.0 

320 DATA 15,25.177,0,0,6,108 

330 DATA 15.28.214.0.0,0,0 

340 DATA 15.30,141,115.88.7.163 

350 DATA 15.28.214.0.0.0,0 

360 DATA 15,25.177.0.0,6,108 

370 DATA 15.21.154.0.0.0,0 

380 DATA 15.17.37,68.149.4.73 

390 DATA 15.21.154.0.0,0.0 

400 DATA 15.25.177.0.0.6,108 

410 DATA 15.28.214,0,0,0.0 

420 DATA 15,30.141.115.68.7.163 

430 DATA 15.28.214,0.0,0.0 

440 DATA 15.25.177.0,0,6.108 

450 DATA 15.21.154.0.0.0.0 

460 DATA 15.22,227.91,140.5.185 

470 DATA 15.28,214.0.0,0,0 

480 DATA 15.34.75.0.0,8,147 

490 DATA 15.38,126,0,0.0.0 

500 DATA 15.40.200.163,31.10.60 

510 DATA 15.38.126,0,0,0,0 

520 DATA 15,34.75.0,0,8,147 

530 DATA 15.28,214.0.0,0.0 

540 DATA 15.17.37,68,149,4,73 

550 DATA 15.21.154.0,0,0,0 

560 DATA 15,25.177,0,0,6,108 

570 DATA 15.28,214.0,0,0,0 

580 DATA 15.30.141.122.52.7.163 

590 DATA 15.28.214.0.0,0.0 

600 DATA 15.25.177.0,0.6.108 
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610 DATA 15,21,154.0,0,0,0 

620 DATA 15.25.177,102,194,6.108 

630 DATA 15.32,94,0,0,0,0 

640 DATA 15.38,126,0,0.9,159 

650 DATA 15.32,94,0,0,0,0 

660 DATA 15,22,227,91,140,5,185 

670 DATA 15.28,214,0,0,0,0 

680 DATA 15,34,75,0,0,8,147 

690 DATA 15,28,214,0,0,0.0 

999 DATA 0,0,0,0.0,0,0 



Explanation 



Line 90 : Change the border and background colours to black, clear 
the screen, and turn the print colour to yellow. 

Line 100 : So you know who to blame for the program. Blame me 
for the tune. 

Line 110 : Declare three variables, for voice one, two and three 
respectively. 

Line 120 : Declare three more variables. These form the high order 
value of the note for voices one, two and three respectively. 

Line 130 : And three more variables, which are the locations to be 
altered for the waveform for voice one, two and three respectively. 

Line 140 : Set the volume to maximum. 

Line 150 : Set ADSR cycle for voice one. Here we have a fast attack, 
a slight decay, and no sustain or release. 

Line 160 : Ditto for voice two, giving us middle-of-the-road values for 
all four parameters in the cycle. 

Line 170 : And again for voice three, with a fast attack, a medium 
decay, and a medium sustain and release as well. 

Line 175 : Since voice one is going to use the pulse waveform, we 
need to set the pulse width as well, which is the function of this line. 

Line 180 : Set a variable T to equal the current time Tl. 

Line 200 : Switch all three waveforms off before playing a note. This 

44 



should always be done on the 64, as should setting the ADSR 
parameters before choosing the waveform. If you don't adhere to this, 
not very much will happen. 

Line 210 : Read the first item of data, which determines how long the 
notes will be held for before being switched off. If the data item is 
zero, then RESTORE everything and go back to the start again. If you 
altered this line to read: 

210 READS:IFS = 0THEN290 

this would ensure that the song cycle would be played once only, after 
which everything would be switched off by line 290. 

Line 220 : Read the high order and low order note values for voices 
one, two and three respectively. 

Line 230 : If X1 , the high order, for voice one has a value, then POKE 
it in there, along with the low order value, followed by setting the 
waveform to be on. If it doesn't have a value, i.e. the data item was 
zero, fall through to the next line. 

Line 240 : Ditto for voice two. 

Line 250 : And again for voice three. 

Line 260 : Add the delay time S to the variable T set earlier. 

Line 270 : If this new value is greater than the current time Tl then 
hang around until it isn't. 

Line 280 : Trot back to line 200 for the next item of data. 

Line 290 : Optional loop to switch everything off. Could be called up 
from line 210 if required, and it's also useful to have it there in case 
you decide to break into the program, in which case a GOTO290 will 
set everything to zero. It is always a good idea, in the case of sound, 
to turn everything off at the end of a program. 

Lines 300 onwards : Data for the tune. 



Other methods 

That is, of course, just one way of doing things. In Chapter 10 we'll 
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see a more advanced method, in which voices three and two are used 
to provide a background rhythm, and only voice one is directly 
controlled and altered. 

Using data can, however, lead to problems, especially if there is a lot 
of other data in the program as well. If you're having a program with 
sprites and/or user-defined characters, it is easily possible for the wrong 
data to be read at the wrong time, and the resulting cacophony would 
have you reaching for the volume control before you could say Paul 
McCartney. If the 64 had a programmable RESTORE command like 
many other machines (i.e. you could have a line that restored the data 
pointer to a specific line of data) then we'd probably be okay, but 
RESTORE on the 64 only takes us back to the very start of the data, 
which is not always a good idea. 

If you've got plenty of memory left, as is the case in the program at 
the end of this chapter, you can resort to using strings instead of data. 
By defining a string to be equal to, say, "5,4,73,5,4,73" etc., a simple 
bit of coding could remove the commas from that string, split it up 
into three numbers at a time, and then use code similar to that in the 
earlier program to play the notes. 

And how, precisely, would we go about doing this? Well, let's take 
a look at the program and see. 



Musical Hangman 

This is basically a variation on a theme, since it is nothing more special 
than the old game of Hangman. However, it does use some interesting 
programming techniques, and most of the words in it are musical ones, 
and so it is worthy of its place here. 



5 P0KE3328 1 , 1 P0KE532B0 , 1 P0KE33272 , 23 i PR I NT " C CLR , 

YEL3HUSICAL HANGMAN. 

15 PRINT" C2CD 3 THIS IS BASICALLY THE OLD SAME OF 

HANGMAN, WITH ONE DIFFERENCE. 
20 PRINT" C CD 34LL THE WORDS YOU'LL BE ASKED TO 

IDENTIFY ARE EITHER MUSICAL ": 
25 PR I NT "TERMS, INSTRUMENTS, OR NAMES OF WELL 
-KNOWN MUSICIANS OR GROUPS. " 

30 PRINT" C CD 3 yOU 'LL HAVE NINE CHANCES TO GUESS EAC 
H WORD AS IT APPEARS. JUST "s 

35 PR I NT "ENTER YOUR LETTER GUESS BY PRESSING TH 
E APPROPRIATEKEY ON THE "« 
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40 PR I NT "KEYBOARD. AND YOUR PROBRESS (OR LACK OF 

IT) WILL BE MARKED": 

45 PRINT" ACCORD I NSLY." 

50 T-B I 60SUB62000 i G0SUB63000 

55 PRINT" C2CD 3 PRESS 'SPACE' WHEN READY TO BEGIN." 

60 GETSP*:IFSP*0" "THEN60 

65 PRINT" C2CD 3 OKAY. JUST READING THE DATA IN." 

70 DIMW*(171) ,G*(26):F0RI-1T0171:READW*(D:NEXT 

74 F0RI-1T026:G*<D- NEXT:H*-"" 

75 PRINT"CCLR,RVS3«USICAL HANGMAN. ":P0KES+24. 15 
80 J-INT(RND(.5)*171+1):W*-W*(J):G»1 

82 A-ASC (MID* (W*. 1 , 1 ) ) -128: A*-CHR* (A) : W*-A*+MID* (W 
*.2> 

84 F0RI-1T0LEN(W*> :H*-H*+"*":NEXT 

85 PRINT" t CD 3 YOUR WORD HAS" :LEN(W*> : "LETTERS IN IT 

It 

90 PRINT" C2CD 3 LETTERS USED:" 

95 F0RI-1T09: IFG* (DO" "THENPRINTG* ( I ) : 

100 NEXT: PRINT 

105 F0RI-10T018: IFG* (DO" "THENPRINTG* ( D I 

110 NEXT: PRINT 

1 15 F0RI-19T026: IFG* (DO" "THENPRINTG* ( I) : 

120 NEXT: PRINT 

122 IFH*-W*THENPRINT"tCLR.2CD3YOU'VE GOT IT!":PRIN 

T"CCD3THE WORD WAS " i W* : " ! " : G0T02000 

125 PRINT"C2CD3£ , NTER YOUR GUESS:" 

130 PRINT i PRINT: PRINTH* 

135 FORI- 1T010:QETA*: NEXT 

136 POKES+4,0 

1 40 GET A* i I FA*- " " THEN 1 40 
142 P0KES+1,2+G:P0KES,2 

145 A-ASC (A*) I IFA<650RA>90THEN140 

146 POKES+4,65 

150 G*(G)-CHR*(A):G-G+1 

155 F0RI-1T0LEN(W*) 

160 IFMID* ( W* ,1,1) -G* (G-l ) THEN500 

165 NEXT 

1 70 I F Z -0THENG0SUB600 : PR I NT " C HOME 3 " : B0T085 

175 Z-0» PRINT" CH0ME3":G0T085 

500 H*-MID*(H*,1,I-1)+G*<G-1)+MID*(H*.I+1) 

502 Z-Z+l 

510 G0T0165 

600 ZZ-ZZ+1 

604 POKEV+2 1 , 255 : POKEV+23 , 225 : POKE V+29 , 225 

606 ONZZBOT0610,620,630,640,650,660,670,680,690 

6 1 POKE V+0 , 240 : POKEV+ 1 , 1 80 : RETURN 

620 POKEV+ 1 4 , 240 : POKEV+ 1 5 , 1 38 : RETURN 

630 POKE V+ 1 2 , 240 : POKEV+ 1 3 . 1 38 : RETURN 

640 POKE V +10, 240 : POKEV+ 1 1 . 1 38 : RETURN 

650 POKEV+6 , 234 : POKEV+7 , 1 50 : RETURN 

660 POKEV+4 , 234 : POKEV+5 , 1 50 : RETURN 

670 POKEV+2 , 234 : POKEV+3 , 1 50 : RETURN 
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680 POKEV+8 , 234 : POKEV+9 . 1 50 : RETURN 

690 PRINT" CCLR,2CD30H DEAR! ! ":PRINT"CCDJTHE WORD W 

AS ":W*s" !" 

695 BDSUB 1 000 : POKEV+3 . 1 POKEV+5 . 1 POKEV+7 . 1 POKEV+ 

8,240 

700 PQKES+4 . 1 POKES+4 , 65 s FOR I - 1 50T0200 s POKEV+9 . 1 : P 

QKES+ 1 , 200- 1 s POKES , 200- 1 s NE X T 

704 FORI-iTOlSOOsNEXT 

705 PRINT" CCLR.2CD 3 ANOTHER BO IY OR N) ?" : ZZ=0sG=l 
710 F0RI«1T010:GETN*:NEXT 

720 6ETN*s IFN*="N"THENFORI=0T015: POKEV+I ,0:NEXTs PO 

KEV+2 1 , i POKEV+28 . : END 

730 IFN*O"Y"THEN720 

735 F0RI«OT015iP0KEV+I,O:NEXT 

740 B0T074 

1000 REM DEATH TUNE 

1002 Z1*-"5.4.208.5.4.20B.1.4.208.6.4.20B.5,5.1B0. 

1,5,103,5.5.103." 

1004 Z1*=Z1*+" 1.4, 208.4.4.208,3.4. 73, 15. 4. 208. 0.0. 

O" 

1006 B0SUB1 1000: RETURN 

2000 Zl*«". 5. 4, 73,. 5, 4. 73.. 5. 5. 103,. 5, 6. 108.. 5. B.l 
4,-5,7,53,5.6, 108,. 5. 4, 73." 

2001 Z1*-Z1*+". 5, 5, 103,. 5, 6, 10B. .5,10.205,5.9.159, 
.5, 8, 147,. 5, 8, 23,. 5, 8, 147," 

2002 Z1*=Z1*+".5.7,53,.5.8,23..5,6,10B,.5.7,53..5, 
5, 185,. 5, 6. 108,. 5, 5, 103," 

2003 Z1*«Z1*+".5,5,1B5,.5.4,20B,.5,5,103.5,4.73.0" 

2004 B0SUB11000:P0KEV+21 .0iB0TO704 

1 1 000 A*- " " : B*« " " i A-0 1 B->0 i 00 1 D-0 1 E»0 s REMMUS I C 

11004 F0RJ-1T0LEN(Z1*) 

11005 B*-MID*<Z1*,J,1) 

1 1 006 I FB*<> " , " THENA*- A*+B* : SOTO 1 1 OOB 

11007 A-VAL(A*)«B0SUB11020 

11008 NEXT 

11010 I FA=OTHENC=0 : A*= " " : POKES+4 . O : RETURN 
11020 C-C+l 

1 1 022 I FO 1 THEND-A » A*- RETURN 

1 1 024 I FC=2THENB= A : A*= " " : RETURN 

11030 E-A 

1 1 032 POKES+ 1 . B : POKES . E : POKES+4 . 65 : FORK- 1 T0D#50 : NE 

XTKs C-Oj A*-" " : POKES+4 , 64: RETURN 

29999 END 

30000 DATA1, 2,7.8 

30001 DATAO. 0,21. 0,0, 21,0 

30002 DATAO, 21, 0,0, 21. 0.0 

30003 DATA21,0,0,21,0,0,21 

30004 DATAO, 0.21, 0,0, 21. 170 

30005 DATA170,170,170,170,170,170.170 

30006 DATA170,170,170,170,170.170,170 

30007 DATA170, 170, 170, 170, 170, 170. 170 

30008 DATA170, 170, 170, 170, 170, 170, 170 
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30009 
30010 
30011 
30012 
30013 
30014 
30015 
30016 
30017 
30018 
30019 
30020 
30021 
30022 
30023 
30024 
30025 
30026 
30027 
30028 
30029 
30030 
30031 
30032 
30033 
30034 
30035 
30036 
30037 
30038 
30039 
30040 
30041 
30042 
30043 
30044 
30045 
30046 
30047 
30048 
30049 
30050 
30051 
30052 
30053 
30054 
30055 
30056 
30057 
30058 
30059 
30060 



DATA170, 170, 170. 170, 170.170. 170,0 
DATA1, 2,7,8 
DATA0,40,0,0,40,0,0 

0.215 

35,85,200 

85,0.0 

0,170 



DATA40, 0,0, 20,0 
DATA0,35,85.200 
DATA15, 85, 240,0 
DATA85, 0,0, 85,0 



DATAO, 0,85, 0,0, 85,0 



DATA0,65,0,0,65 
DATAO, 0,0, 0,0,0 
DATAO, 0,0, 0,0,0 
DATA1, 2,7,8 
DATAO, 40, 0,0, 40 
DATA40, 0,0, 20,0 
DATAO, 35, 85, 200 
DATA15, 85, 240,0 
DATAB5, 0,0. 85,0 
DATAO, 0,0, 0,0,0 
DATAO ,0,0,0,0,0 
DATAO, 0,0, 0,0,0 
DATAO ,0,0,0,0,0 
DATA1, 2,7,8 
DATAO, 40, 0,0. 40 
DATA40, 0,0, 20,0 



DATAO, 0,85, 0,0, 85,0 



DATAO, 85, 0,0, 85 



DATAB5,0,0,0,0,0,0 



DATAO, 0,0, 0,0,0 
DATAO ,0,0,0,0,0 
DATAO, 0,0, 0,0,0 
DATAO, 0,0, 0,0,0 
DATA1, 2,7,8 
DATAO, 40, 0,0, 40 
DATA40, 0,0, 20,0 
DATAO, 35, 85, 200 
DATA15, 85, 240,0 
DATA85, 0,0, 85,0 



DATAO, 0,85, 0,0, 85,0 
DATAO, 65, 0,0, 65, 0,0 
DATA195,0,0, 195,0,0, 195 
DATAO, O, 130,0,2, 130, 128,0 
DATA1, 2,7,8 
DATA85,85,85,B5,B5,85,B5 
DATA85,85, 16,20,21 , 16,20 
DATA21,16,5,21,0,5,21 
DATAO, 1,85, 0,1, 85,0 
DATAO, 21, 0,0, 21, 0,0 
DATA21,0,0,21,0,0,21 
DATAO, 0,21, 0,0, 21,0 
DATAO, 21, 0,0, 21, 0,0 
DATA21,0,0,21,0,0,21,0 
DATA1, 2,7,8 



0,0 



0.0 

0,0 

0,215 

35,85,200 

85,0,0 

0,0 



O 

O 

0,0 

0,0 
0,215 



0,0 





O 

O 

0,0 

I 

0,0 

0,215 

35,85,200 

85,0,0 

0,170 
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30061 DAT A85. 85, 85, 85, 85, 85, 85 

30062 DATAB5,S5,0,0,21,0,0 

30063 DATA21,0,0,21,0,0,21 

30064 DATAO, 0,21, 0,0, 21,0 

30065 DATAO, 21, 0,0, 21, 0,0 

30066 DAT A21, 0,0, 21, 0,0, 21 

30067 DATAO, 0,21, 0,0, 21,0 

30068 DATAO, 21, 0,0, 21, 0,0 

30069 DATA21,0,0,21,0,0,21,0 

30070 DATA1, 2,7,8 

30071 DATAO, 0,21, 0,0, 21,0 

30072 DATAO, 21, 0,0, 21, 0,0 

30073 DATA21,0,0,21,0,0,21 

30074 DATAO, 0,21, 0,0, 21,0 

30075 DATAO, 21, 0,0, 21, 0,0 

30076 DATA21,0,0,21,0,0.21 

30077 DATAO, 0,21, 0.0, 21.0 

30078 DATAO, 21, 0,0, 21, 0,0 

30079 DATA21,0,0,21,0,0,21,0 

40000 DATA " BRE VE " , " W I N I M " , "CROTCHET ". " OUA VER " . " WOT 
E" , "SOUND" , "STAVE" , "BAR" 

4000 1 D ATA " KEYBOARD " , " 4CCELERAND0 " , " AN I MATO " , " ARPE 
SB ID" , "TEMPO" , "PSALM" , "HYMN" 

40002 DAT A " CHANT " , " CHORD " , " l/OCAL " , " C ALANDO " , " CLEF " 
, "STAFF" . "DOT" , "F ORTE" 

40003 DATA "FORT I SSI MO" , "HARMONIC" . "Z.EBATO" . "LOCO" . 
" HETRONOME " , " HORDENT " 

40004 DATA " SHARP " . " FLAT " , " WATURAL " . " OPUS " . " PEDAL " . 
"PIANISSIMO" , "PAUSE" 

40005 DATA " P I Z Z I CATO " , " QUARTETTE " , " QU I NTETTE " , " QU I 
NTUPLET" , "SEBUE" , "SEPTET" 

40006 DATA"SEXTET" , "SEMITONE" , "STACCATO" , "TREMOLO" 
, "TRILLO" , "TRIPLET" , "SOLO" 

40007 DATA"|/IBRATO"«REM 50 SO FAR 

40010 DATA"GUITAR" , "PIANO" , "klOLIN" . "TRUMPET" , "SAX 
OPHONE" , "HARPSICHORD" 

4001 1 DATA"0RBAN" , "PIPES" , "FLUTE" , " ACCORD I ON" , "ORU 
MS" , "BASS" , "HARP" , "HHISTLE" 

40012 DATA"KAZOO" , "CYMBAL" , "SNARE" . "FIDDLE" . "BOW" . 
"XYLOPHONE" , "TUBA" , "BASPI PES" 

40013 DATA"CLARINET" , "TROMBONE" , "l/IBES" . "HARMONIUM 
" , " 4LPH0RN " . " P ANT ALEON " 

400 1 4 DATA " 0RCHESTR I ON " , " V I OL A " , " P I CCOLO " . " BASSOON 
" . " S YNTHES I SER " . " HOOB " 

400 1 5 DATA " HARMON I CA " , " OONS " , " BOTTLENECK " , " SL I DE " . 
"STEEL", "ACOUSTIC" 

40016 DATA"SPANISH" , "ELECTRIC" , "TUBULAR" , "BELLS" , " 
HANDOLIN" , "BANJO" , "UKELELE" 

40017 DATA"PIANOLA","HURLITZER","HASHBOARD"iREM 10 
SO FAR 

400 1 8 DAT A " STR I NB " , " TUN I NB " , " FRET " , " H A J OR " , " H I NOR " 
, "TONE" , "TREBLE" , "SEMI BREVE" 
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400 1 9 DATA " SEM I QUAVER " , " P I TCH " , " OCTAVE " . " BEAT " , " PH 
YTHM" , "MELODY" , "TUNE" f "SCALE" 

40020 DATA " KEYS " , " HARMONY " , " 4DANTE " , " WODERATO "."CO 
NTRALTO" . "ALTO" , "TENOR" 

4002 1 DATA " SOPRANO " , " 4LLESRETT0 " . " TREMOLO " . " CELLO " 
. "WEED" . "HIND" , "RECORDER" 

40022 DATA"BUGLE" , "HORN" , "BAZOOKA" . "tYRE" . "i.UTE" . " 
UKULELE" , "BALALAIKA" , "DUET" 

40023 DATA " PRESLEY " , " TR I " , " BAND " , " GROUP " , " BEATLES 
" , "DYLAN" , "FELICIANO" 

40024 DATA " HANTOVAN I " , " S I NATRA " , " PERCUSS I ON " , " I^OCA 
LS" , "HIND" , "TIMPANI " 

40025 DATA "FOLK" , "BLUES" , "BALLAD" , "COUNTRY" , "POCK" 
"CLASSICAL" "HAYDN" 

40026 DATA"BRAHMS" , "LISZT" , "OPERA" , "BEETHOVEN" , "BA 
CH" , "HAQNER" , "HANDEL" 

40027 DAT A " HALT Z " . " SONS " , " VO I CE " , " SCHUBERT " , " HO Z AR 
T" , "BARRYMANILOW" 

62000 V=5324B : POKEV+23 , : POKEV+29 . 

62002 FORI=0TO15:P0KEV+I T O:NEXT 

62005 B (O) -248: B ( 1 ) =249: B (2) =250: B (3> =251 : B (4) =252 

: B (5) =253: B (6) =254: B <7) =255 

62010 NS=T: IFNS-OTHENRETURN 

62015 F0RA-1T0NS 

62020 READSK , M 1 , M2 : I FSK-0THENP0KEV+2B , PEEK ( V+2B ) AN 

D255-2 A < A- 1 ) s G0T062030 

62025 P0KEV+2B , PEEK ( V+2B ) QR2~ ( A- 1 ) : POKEV+37 .Ml: POK 

EV+3B f M2 

62030 READCO : P0KEV+38+A . CO : P0KE2039+ A . B ( A- 1 ) 

62035 FORC=B < A- 1 ) *64T0B < A- 1 ) *64+63 : READQ : POKEC , Q : N 

EXT: NEXT: RETURN 

63000 S-54272 : P0KE8+5 . 9 : POKES+6 , 1 00 : POKES+3 . O : POKE 

S+2 . 255 : POKES+4 . 65 

63002 RETURN 

READY. 



Explanation 

Line 5 : Set a black border and black background, set everything into 
upper and lower case instead of upper case and graphics, clear the 
screen, turn the print colour to yellow, and print up the title of the 
program. 

Lines 15-45 : On screen instructions and a little bit about the game. 

Line 50 : Define T to equal 8, which tells one of the later routines that 
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we want to define 8 sprites. Go to the routine at 62000, which defines 
the sprites, and then go to the routine at 63000, which defines voice 
one to be ... we'll see what later. 

Lines 55-65 : Press space to continue message, wait until the space 
bar is pressed, then get ready to read all the word data in. 

Line 70 : Dimension the array W$ to contain 171 elements (172 actually, 
I know, but we haven't bothered with element zero), since we're going 
to be reading in 171 words. Obviously this would have to be changed 
if you wanted to add to the word database yourself. Then define a 
string G$ to contain 26 elements, since this string is going to handle 
all your alphabetic input: there are 26 letters in the alphabet, so we 
reserve one space for each of them. The word data is then read in 
in the last part of the line. 

Line 74 : Clear out G$, and set H$ equal to nothing. H$ will be used 
to print out your guess each time and show your progress, or lack of it. 

Line 75 : Clear the screen, print the title up in reverse field, and set 
the volume to maximum. 

Line 80 : Select a random number between 1 and 171, pick out that 
word from our word database by choosing W$(J), and finally set G, 
the number of guesses, to 1 . 

Line 82 : Since the data was entered as upper case first letter, lower 
case for the rest of the word, switch the first letter to lower case as 
well by taking the ASCII value of it and subtracting 128, and adding 
it to the original word minus the first letter to make a complete word 
again. Phew! 

Line 84 : Perform a loop the same number of times as there are letters 
in the word, and set up our display string accordingly. 

Line 85 : Inform the player how many letters are in the word. 

Line 90 : Start of display to show which letters have been used. 

Lines 95-120 : Go through each element of the array G$ to see if it 
has a letter in it. If it has, print it up on the screen, if it hasn't then 
just go on to the next line. 

Line 122 : If your answer string H$ is equal to the selected word W$ 
then you've obviously cheated the hangman, so print up a message 
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of congratulation and trot off to line 2000 to play a cheery tune, among 
other things. 

Line 125 : Tell the player to enter his guess. 

Line 130 : Print up the guess string. 

Line 135 : Clear the keyboard buffer. 

Line 136 : Turn the waveform for voice one off. 

Line 140 : Get a character. 

Line 142 : POKE a couple of values into the high and low order note 
values for voice one. The note gets higher the more guesses the player 
takes. 

Line 145 : Reject anything that isn't an alphabetic character. 

Line 146 : Turn the waveform for voice one on. 

Line 150 : Set the Gth element of our letters guessed string to contain 
the letter just typed in, and increment G by one. 

Line 155 : Start of loop to check player input. 

Line 160 : If the input matches a letter in our chosen word, then off 
to 500. 

Line 165 : Rest of the loop. 

Line 170 : A match hasn't been found, so go to line 600 to change 
the screen display. 

Line 175 : Reset the variable Z ready for the next input, and back to 
line 85 for more. 

Line 500 : Build up the guess string H$ according to what has just 
been typed in. 

Line 502 : Increment the counter Z to show that a letter match has 
been found. 

Line 510 : Back to line 165 for more checks. 
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Lines 600-604 : Increment ZZ counter, which goes up when a letter 
match has not been found, and turn on all sprites, together with 
expanding them in all directions. 

Line 606 : Go to appropriate routine for updating screen display. 

Lines 610-680 : Turn various sprites on and off as suitable, and position 
them on the screen. 

Lines 690-700 : The player's blown it, so go to the routine at 1000 to 
play the death march. Then put a silly sprite display on screen just 
to rub in the player's failure. 

Line 704 : A delay loop. 

Lines 705-740 : Check to see if the player wants another game. 

Lines 1000-1006 :■ Build up string to play the death march, and go to 
the routine at 11000 which handles playing it. 

Lines 2000-2004 : Build up tune to celebrate success (a crack-throated 
rendition of The Sun Has Got His Hat On'), and then go to line 1 1000 
to play it. 

Lines 1 1000-1 1032 : Playing the tune based on the string Z$. The routine 
essentially searches through for commas (line 11006), converts the 
parts of the string that are not commas into numerical values (line 
11007), and then plays those values in line 11032. An interesting 
exercise, if you're getting your data confused and wish to use strings 
instead. 

Lines 30000-30079 : Sprite data. 

Lines 40000-40027 : Word base. Sorry about the last entry, it wasn't 
my idea! 

Lines 62000-62035 : Read in sprite data and store it at appropriate 
locations. Multi-colour sprites as well, so set everything accordingly. 

Lines 63000-63002 : Set ADSR parameters for voice one, along with 
pulse width, before selecting pulse waveform. 

A lengthy program, but it incorporates some interesting programming 
techniques. 
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7 
Getting Tuneful 

Introduction 

In order to play a few tunes on the 64, it would be an easy matter 
to get you to turn to Chapter 10, type in the listing given there, and 
start making up your own tunes. However, we are not all as musical 
as we would like to be, and certainly not all of us could sit down in 
front of a keyboard and produce recognisable tunes. 

The program in Chapter 10 will certainly help you to produce some 
interesting noises if your skill as a musician is on a par with mine i.e. 
zero. On the other hand, it would be nice actually to learn something 
about music as well as just making a noise, and so over the course 
of the next three chapters we're going to match musical theory on 
the 64 with some musical practice programs, designed to increase your 
knowledge of music generally, and give you a feel for what note lies 
where on the keyboard, how the position of a musical note on the 
stave relates to the noise that note produces, and so on. 

Towards the end of this book there are a couple of sample tunes, made 
famous originally by the Beatles, so everyone should (I hope! ) recognise 
them. With the title of this book being what it is, one tune was a fairly 
obvious choice, and the other I happened to hear someone whistling 
the other day. Anyway, it's an easy tune to type in. 

Producing tunes 

Although both tunes are familiar ones, I could certainly not have simply 
sat down at the keyboard and typed them in. If you can are capable 
of doing that, fine. If not, perhaps a few words would be in order. 

The easiest way to commit some tunes to tape or disk is to pay a visit 
to your local music store and get a few song sheets. Wise Publications, 
distributed by Music Sales Limited, produce a number of excellent 
books for the beginner, including a very good series of '101 ... Songs 
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for Buskers'. These titles cover Beatles' songs, general songs, anybody 
under the sun's songs, and they're pretty cheap as well. Worth 
searching out. 

There are many other books of songs, as any good musical store will 
tell you. For the sake of a couple of quid, it's worth acquiring one 
of these books and then you can at least annoy the relatives with 
something vaguely tuneful, rather than subjecting them to a barrage 
of electronic noise any time they come near you and your computer. 



Musical tunes 

We've already introduced a couple of methods of playing tunes, using 
the string technique in the 'Musical Hangman' program, and the data 
technique in the Three-Part Harmony?' listing. There are, of course, 
many other methods by which one could string together a collection 
of notes and repeat them ad infinitum. We'll look at just one method, 
albeit one that is commonly used in the top games programs around 
today, in Chapter 13. 

For now, a musical listing to give you a little bit of fun, as well as a 
better ear for music. This is a musical equivalent of the Simon game, 
which in its earlier form consisted of what looked rather like a dustbin 
lid that had been divided up into four coloured portions. One or more 
of these portions would light up in turn, and the player had to hit, in 
the correct sequential order, those portions that had previously been 
lit up. 

In this musical variant, the computer will play a series of notes (four 
at first, and then gradually more as your skill in repeating musical notes 
grows greater). These notes will be played on a representation of a 
piano keyboard on the screen. You get the opportunity to practise on 
that keyboard before the game itself starts. 

Having heard the notes and seen where they were played, you then 
have to repeat them in the exact order in which they appeared. Get 
it wrong, and it's back to the beginning again, but get it right and you'll 
be presented with ever more notes until your memory cracks under 
the strain! 



Musical Simon 

Before you set about typing in the listing, a few words of warning. 
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The complicated part in lines 10 to 110 is not as bad as it seems, since 
a lot of the lines are duplicates of each other. For instance, line 20, 
30 and 40 are the same as line 10 (although for the purposes of this 
listing they've had to be split up into two lines each). 

Again, lines 70, 80, 90 and 100 are all the same. In both these instances 
just type in the first line and use the 64's editing keys to repeat the 
line, to save you typing it out again and again. If you're getting a little 
bit confused over what all the symbols mean, refer back to Chapter 
1 where they were all explained in depth. If it's any help, what you're 
trying to draw is a piano keyboard. 

Bear in mind that we'll be using this keyboard layout in a couple of 
games, so when you've typed it in once, it will be used again. 



5 C0=4 : G0SUB30000 : BOSUB 1 OOOO 

9 S0T0200 

10 PRINT" C8SP.RVS.BLK.2SP. OFF. SP.RVS.2SP. OFF. 4SP.R 
VS,2SP,0FF,SP.RVS,2SP.aFF.SPr': 

11 PRINT" CRVS.2SP, OFF, 4SP, OFF. 2SP. OFF]" 

12 REMLINES 10 AND 11 COMBINE TO FORM ONE LINE WHE 
N PRINTED ON THE 64 

20 PR INT " C 8SP . RVS . BLK , 2SP . OFF , SP . RVS . 2SP . OFF , 4SP . R 
VS , 2SP , OFF , SP , RVS , 2SP . OFF , SP 3 " : 

21 PRINT" CRVS,2SP. OFF. 4SP. OFF, 2SP.0FF3" 

22 REMLINES 20 AND 21 COMBINE TO FORM ONE LINE WHE 
N PRINTED ON THE 64 

30 PRINT" C8SP, RVS, BLK. 2SP. OFF, SP, RVS. 2SP. OFF. 4SP.R 
VS,2SP,0FF,SP,RVS.2SP,0FF.SP]": 

31 PRINT" CRVS,2SP, OFF, 4SP. OFF, 2SP, OFF]" 

32 REMLINES 30 AND 31 COMBINE TO FORM ONE LINE WHE 
N PRINTED ON THE 64 

40 PRINT" C8SP, RVS, BLK, 2SP, OFF. SP. RVS. 2SP. OFF. 4SP.R 
VS,2SP,0FF,SP,RVS,2SP.0FF,SP]": 

41 PRINT" CRVS,2SP, OFF, 4SP, OFF. 2SP, OFF]" 

42 REMLINES 40 AND 41 COMBINE TO FORM ONE LINE WHE 
N PRINTED ON THE 64 

50 PRINT" C6SP, RVS. WHT,2SP. BLK. 2SP.WHT.SP. BLK. WSP,W 
HT,SP,CBMM,2SP,BLK,2SP.WHT,3"s 

51 PRINT" CSP, BLK, SP,WHT,SP, BLK, 2SP,WHT,SP, CBMM, 2SP 
,BLK.2SP3" 

52 REM LINES 50 AND 51 COMBINE TO FORM ONE LINE WH 
EN PRINTED ON THE 64 

60 PR I NT " C 6SP , RVS , WHT . 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 1 " s 

61 PRINT"C2SP,CBMM,2SP,CBMM3" 
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62 REM LINES 60 AND 61 COMBINE TO FORM ONE LINE WH 
EN PRINTED ON THE 64 

70 PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " : 

71 PRINT"C2SP,CBMM,2SP,CBMM3" 

72 REM LINES 70 AND 71 COMBINE TO FORM ONE LINE WH 
EN PRINTED ON THE 64 

80 PR I NT " C 6SP , RVS . WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " s 

81 PRINT"C2SP.CBMM,2SP,CBMM3" 

82 REM LINES 80 AND 81 COMBINE TO FORM ONE LINE WH 
EN PRINTED ON THE 64 

90 PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " s 

91 PRINT"C2SP,CBMM,2SP,CBMM3" 

92 REM LINES 90 AND 91 COMBINE TO FORM ONE LINE WH 
EN PRINTED ON THE 64 

1 00 PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP . CBMM , 
2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " s 

101 PRINT"C2SP,CBMM,2SP,CBMM3" 

102 REM LINES 100 AND 101 COMBINE TO FORM ONE LINE 
WHEN PRINTED ON THE 64 

110 RETURN 

200 PRINT" CCLR3": CO:" NOTES COM INS UP ! C4CD3 " :QOSUB 
10 

201 PRINT" C HOME, 3CD. WHT 3 * # # # # 
#" 

202 PRINT" CHOME. 4CD.WHT3 CD F G A 
C" 

203 PRINT" CHOME,15CD3 CDEFGABC 

II 

204 F0RI«lT01000tNEXTI»F0RI-lTDC0iKE*(I)-MID*<KE*. 
INT (RND ( . 5) *13+1 ) , 1 ) i NEXTI 

206 F0RJ-1T0C0 

207 POKEV+4,0 

208 FOR I - 1 TO 1 4 s I FKE* ( J ) -M I D* < KE* ,1,1) THENG0SUB5000 
0il-14 

209 NEXTIsP0KEV+4,65iFORK-iT05O0iNEXTK,J 

210 PRINT" C4CD3WOW IT '8 YOUR TURN!" 
215 A-l 

220 P-0 i BETN* i I FN*- " " THEN220 

223 F0RI-1T014I IFN*«MID* (KE*, I , 1 ) THENP-1 

226 NEXTIIIFP-0THEN220 

230 AN*(A)-N* 

232 F0RI-1T0LEN<KE*) 

234 I FN*-M I D* ( KE* , 1 , 1 ) THENPOKEV+4 . 1 POKEV+4 , 65 1 SOS 
UB50000 

235 NEXT 

240 A-A+liIFA>C0THEN250 

245 Q0T0220 

250 FORI -1 TOCO 

260 I FAN* ( I ) OKE* ( I ) THEN300 
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270 NEXT 

280 PRINT" t 2CD 3 CORRECT ! " : FORJ=OTD1000: NEXT 

285 ZQ-ZQ+1 s IFZQ-4THENC0-C0+1 : ZQ=0 

286 B0T0200 

300 PRINT"C2CD,RVS3W/?0WG! " : :F0RJ=0T01000:NEXT 

310 PRINVVOU SHOULD HAVE PLAYED! " 

312 A-l 

314 POKEV+4.0 

316 F0RI=1T014: IFKE* (A) -MID* (KE*. I , 1 ) THENGDSUB5000 

0:1-13 

318 NEXTIxP0KEV+4.65sF0RK-lT0500:NEXTK 

319 A- A+ 1 i I F A< -C0THEN3 1 4 

320 PRINT"CCLR.2CD3YOU FAILED TRYING TO REPEAT "sC 
Os" NOTES." 

321 PRINT"C2CD34N0THER GO <V OR W>?" : POKES+l .OsPOK 
ES.O 

330 GETS* i I FG*- " Y " THENC0-4 s G0T0200 
340 I FG*- " N " THENPR I NT " C 2CD 3 B YE . " s END 
350 G0T0330 

9999 END 

1 0000 P05328 1,2s P0KE53280 , 6 s P0KE53272 , 23 s PR I NT " t CL 
R,WHT,RVS 3 WELCOME TO WUSICAL SIMON" 

10002 PRINT" CCD3THIS IS A MUSICAL VERSION OF THE P 

OPULARGAME OF SIMON." 

10004 PRINT" CCD3I WILL PLAY A TUNE. AND INDICATE W 

HICH NOTES THE TUNE "s 

10006 PR I NT "CONSISTS OF. YOU MUST THEN REPEAT T 

HE TUNE EXACTLY." 

1 0008 PR I NT " C 2CD 3 " 8 GOSUB 1 : G0SUB20000 

10010 PRINT" CCLR3THE FIRST TUNE WILL ONLY HAVE A F 

EW NOTES IN IT, BUT AFTER "I 

10012 PR I NT "EVERY FOURTH SUCCESSFUL REPEAT, T 

HE TUNE WILL GROW BY ONE NOTE." 

10014 PRINT" C2CD36ET JUST ONE NOTE WRONG. AND YOU ' 

LL BE GIVEN YOUR SCORE. THE "s 

10016 PRINT"TUNE WILL THEN RE-SET TO ITS STARTING 

LENGTH OF 4 NOTES IF YOU "i 

10018 PR I NT "WISH TO HAVE ANOTHER GO. " 

10020 PRINT"C2CD3PLAY USING THE KEYS INDICATED." 

10O22 G0SUB20000 

10024 PRINT"CCLR,4CD3":GOSUB10 

10026 PRINT"tHOME.4CD.WHT3 WE T Y U 

0" 
1002B PRINT" CHOME,15CD3 A S D F G H J 

K" 
10030 PRINT" C2CD3TRY IT NOW. JUST TO GET THE FEEL 
OF THE KEYBOARD. HHEN YOU'RE FED"i 
10032 PRINT" UP, PRESS 'SPACE' TO GET THE SHOW 
ROLLING. " 

1 0040 GET A* s I FA*- " " THEN 1 0040 
10045 I FA*-" "THEN 10999 
10050 F0RI-1T0LEN<KE*> 
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1 0060 I F A*=M I D* < KE* , 1 , 1 ) THENPOKE V+4 , s P0KEV+4 . 65 s G 

0SUB50000 

10070 NEXT 

10090 SOTO 10040 

10999 POKES+1.0: POKES, 0: RETURN 

20000 PRINT" [2CD,RVS 3 PRESS 'SPACE' TO CONTINUE." 

20002 F0RI=lT010:GETSP*sNEXT 

20004 SETSP*:IFSP*<>" "THEN20004 

20006 RETURN 

30000 V-54272 s POKEV+3 , 255 : POKEV+5 , 9 s POKEV+6 , s POKE 
V+4 , 65 s POKEV+24 , 1 5 

30001 DIMN0<28> ,KE*<255> ,AN*(255) ,SP(28) 

30002 DATA4, 73, 4, 208, 5, 103, 5, 185, 6, 108, 7, 53,8,23,8 
,147,4,139,5,25,6,16,6,206 

30004 DATA7, 163,9,21 

30006 FOR I - 1 T028 8 RE ADNO ( I ) 8 NE X T 

30008 KE*«"ASDFGHJKWETYUO" 

30010 S-53248 

300 12 FOR I -0T062 8 RE ADA s P0KE832+ 1 , A s NE X T 

300 1 4 P0KE2040 ,13s POKES+23 . 8 P0KES+29 , : POKES+28 , 
8 POKES+39 , 5 8 X -0 8 Y-0 

300 1 5 POKES+ 1 , Y 8 POKES , X j POKES+2 1 , 1 

30016 F0RI-1T0288READSP(I)8NEXT 
30018 RETURN 

40001 DATAO,0,0,0,0,0,0 

40002 DATA32,0,0,48,0,0,56 

40003 DATAO, 0,60, 0,0, 38,0 

40004 DATAO, 34, 0,0, 34, 0,0 

40005 DATA36,0,0,32,0,0,32 

40006 DATAO, 0,32, 0,0, 32,0 

40007 DATA3, 224, 0,7, 224, 0,15 

40008 DATA240, 0,15,240,0,7,224 

40009 DATAO, 1,128, 0,0, 0,0 

41000 DATA 73,135,97,135,121,135,145,135,169.135,1 
93, 135,217, 135,241 , 135 

41002 DATA 86,95,110,95,158,95,182,95,206,95,255,9 

5 

50000 POKEV+1 ,N0 < I + I-l ) t P0KEV,N0 (1 + 1)8 POKES+1 ,SP ( I 

+ 1) 8 POKES, SP( 1 + 1-1)8 RETURN 



Explanation 

As usual, our dissection of the program starts with the very first line. 

Line 5 : Set the variable CO to equal four. This determines how many 
notes will be played for the player to attempt to repeat. Then go to 
the routine at 30000 to set up some data, and line 10000 to start off 
the introduction to the game. 
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Line 9 : Off to line 200, which is the start of the game. 

Lines 10-110 : Set up the piano keyboard display, as we discussed 
earlier. 

Line 200 : Clear the screen, inform the player how many notes he's 
going to have to remember, and go to the routine at line 10 to draw 
the keyboard. 

Lines 201 -203 : Display which key is playing which note. 

Line 204 : After a slight delay, set up CO random notes, taken from 
the letters in the string KE$ defined earlier on in a subroutine at the 
end of the program. 

Line 206 : Set up a loop to be repeated CO times. 

Line 207 : Switch the waveform of voice one to zero. 

Line 208 : Start of the loop to identify which random notes to play. 
The routine at line 50000 plays the notes, and also moves our sprite 
around on screen to show the player which note has in fact been 
played, as well as allowing him to listen to it. 

Line 209 : Finish off the loop. 

Line 210 : Inform the player that it's his turn. 

Line 215 : Set the variable A to equal one. This will check to see how 
many notes have been played. 

Line 220 : Set a flag to equal zero, and wait for a key to be pressed. 

Line 225 : Set up a loop to try to identify which key has been pressed. 
If it is one of the keys that will produce a musical note, set the flag 
to equal one. 

Line 226 : Otherwise continue around the loop, and if the key isn't 
a recognised one go back and try again. 

Line 230 : The Ath key pressed by the user is set to equal the last key 
pressed. 

Line 232 : Start a loop to check for every playable note. 
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Line 234 : If the key is recognised, then turn the waveform for voice 
one off, turn it on again, and go to the routine at 50000 to play the 
note and move the sprite around. 

Line 235 : Next step round the loop. 

Line 240 : Check to see if enough keys have been pressed. If they have 
then start checking to see whether the player's attempt at repeating 
the notes in order was a good one. 

Line 245 : We haven't had enough notes yet, so go back and get some 
more. 

Line 250 : Start off loop to check every note played by the player. 

Line 260 : If the Ith key pressed doesn't equal the Ith random note 
generated earlier, then a mistake has been made, so go to the routine 
at 300 to mention this. 

Line 270 : Next step around the loop. 

Line 280 : With a slight delay for effect, inform the player that he's 
got it all right. 

Line 285 : Check for incrementing the number of notes to be repeated. 
After every fourth go, this is incremented by one. 

Line 286 : Back to line 200 for another go. 

Line 300 : With another dramatic pause, the player is informed of his 
error. 

Line 310 : Start of routine to inform the player what he should have 
played. 

Line 312 : Reset variable A to 1. 

Line 314 : Turn the waveform off. 

Line 316 : Check our randomly generated set of notes, and if one is 
found then go to the routine at 50000 to play it. 

Line 318 : Next step around the loop. Turn the waveform on, and delay 
for a short while (about half a second). 
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Line 319 : All notes played? If not, go back and play another one. 

Line 320 : Inform the player of his demise. 

Lines 321 -350 : Check to see if the player wants to have another go. 

Line 9999 : Early line left in from days of checking program! 

Lines 10000-10040 : Instructions, and invite the player to have a go 
on the practice keyboard. 

Lines 10040-10999 : Let the player play some practice notes until he 
gets fed up and presses the space bar. 

Lines 20000-20006 : Routine for waiting until space bar is pressed. 

Line 30000 : Set sound variables, including ADSR sequence and 
waveform. 

Line 30001 : Initialise and declare a few variables. 

Line 30002-30004 : Data for musical notes according to which key is 
pressed. 

Line 30006 : Read the note data in. 

Line 30008 : Declare KE$ to equal every valid key that can be pressed. 

Line 30010 : Set variable S to equal start of sprite memory. 

Line 30012 : Read sprite data and store it in the 13th block for sprite 
data. 

Line 30014 : Inform the computer of this fact, and have an un-enlarged 
green sprite which will start life in the top left hand corner of the screen. 

Line 30015 : Turn the sprite on, but display it off screen. 

Line 30016 : Read data for sprite position on screen corresponding 
to various key presses. 

Line 30018 : Guess what? 

Lines 40000-40009 : Sprite data. 
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Lines 40010-40012 : Sprite screen position data corresponding to keys 
in KE$. 

Line 50000 : Routine to play note and move sprite to correct position 
on screen. 

As in all programs of this type, it is not only the program itself that 
is important, but also the collection of short routines contained within 
it that perform various important operations. Look and learn, as they 
say, and as with all programs in this book please feel free to modify 
them as you see fit. 



A non-musical interlude 

In the midst of the wealth of musical programs covered in this book, 
one or two of the routines used were inspired by some other, non- 
musical program. Since it would seem a shame to leave out these 
undeniably useful programs, some of them have been included here. 
This one was written by R. Crothers, and allows you to save any portion 
of memory to tape or disk. 

This seemed like a reasonable enough program, and a very useful utility 
to have. So often, when typing in a machine code program without 
a monitor to assist you, it becomes impossible to save that program 
later. Using this, that is no longer a problem. It was used, in conjunction 
with the synthesiser program coming up later, to store some 
background musical tunes on to disk, for later recall within the main 
synthesiser program. 



Memory saver 

Type in the program as shown, and save it before running it, just in 
case. If all is well, the screen should clear to reveal the name of the 
program, and a request to enter a filename. Following on from this, 
you are asked to enter a device to save your program on to (tape or 
disk), and then the routine is initialised with a SYS679 call when 
necessary. 
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3 P0KE532B 1.0: P0KE532B0 . 9 s P0KE646 . 2 : PR I NT " C CLR . YEL 
3" 

4 PR I NTTAB < 1 1 ) " C RVS 3 SAVER 64 

5 DATA169. 54. 133.1 

10 DATA169,B, 162,8, 160,255,32. 186.255 

20 DATA169, 2, 162,211 , 160,2,32 f 189,255 

30 DATA169, 1.133, 247. 169. 8, 133, 248, 162, 255. 160, 127 

,169,247,32,216.255 

35 DATA169,55,133.1.96 

40 F0RI=679T0722:READAsP0KEI,AaNEXT 

50 N*= " " : DEV= 1 s S=2049 1 E=32767 

60 INPUT" ECD3FILE NAME " sN*sN*=LEFT* (N*, 16) 

62 IFN*=""THEN60 

70 1NPUT"DEVICE <T/D) "sDEV* 

71 IFDEV*="T"THENDEV=l!G0T080 

72 IFDEV*="D"THENDEV*=B:S0T080 
74 SDT070 

80 S«49152iREM START ADDRESS (*C000 IN THIS EX AMP 

LE) 

90 E=53247sREM END ADDRESS > *CFFF IN THIS EXAMPLE) 

1 00 K-S i SOSUB 1 000 « P0KE702 .All P0KE706 , A2 

110 K=E:80SUB1000iPQKE710,AlsP0KE712.A2 

120 SA-255iP0KE688,SA 

130 K=LEN < N* ) s P0KE693 , K 

140 F0RI-1T0K 

150 P0KE722+I , ASC (MID* (N*, I , 1 > ) : NEXT 

155 P0KE684,DEVsP0KE686,DEV 

156 PRINT" CCD3L0AD IN MACHINE CODE &" 
160 PR I NT "TYPE 'SYS 679' TO SAVE"! END 
1 000 A2= I NT < K / 256 ) : A 1 =K- A2*256 s RETURN 



Explanation 

Line 3 : We'll have a black border and background, followed by clearing 
the screen and setting the printing colour to yellow, thus overriding 
the POKE 646,2 earlier on in the line. 

Line 4 : So this is what the program's really called. 

Lines 5-30 : Machine code data. Enter these numbers very carefully, 
as some of them are calls to internal 64 routines, and we don't want 
to end up in the wrong part of ROM at the wrong time. 

Line 40 : Read the data in and POKE it into place. 

Line 50 : Set some default values for the file name, device number, 
and start and end addresses of the machine code to be saved. 
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Line 60 : Input the file name, and take the first sixteen characters of 
it in case anyone types in a ludicrously long name. 

Line 62 : You can't just press return and expect to get away with it. 

Line 70 : Input the device (tape or disk). 

Line 71 : If the device is tape, then the device number is 1, and go 
to line 80. 

Line 72 : Ditto for disk. 

Line 74 : No strange letters typed into this program! 

Line 80 : Set start address of machine code routine to be saved. 

Line 90 : And set the end address as well. Sorry about the bracket 
being the wrong way around. 

Lines 100-110 : POKE high and low order values for start and end 
addresses into locations 702,706,710 and 712. 

Line 120 : POKE688 with 255 decimal, or $FF hexadecimal. 

Line 130 : Put the length of the file name into location 693. 

Lines 140-150 : Put the ASCII codes for the filename into locations 
722 onwards. 

Line 155 : POKE the device number into locations 684 and 686. 

Lines 156-160 : Over and out with a simple message. 
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8 

Ring Modulation and 

Synchronisation 



Introduction 

When it comes to more advanced techniques, the Commodore 64 
scores over most of the other home computers currently available. 
True, these techniques aren't exactly easy to implement on the 64, 
but at least they are in there somewhere, and with a little bit of time 
and effort you can produce some very interesting results indeed. 

We've already seen how altering the pulse width can affect the quality 
of the note being produced. However, we can't use pulse widths all 
the time, since the ring modulation effect requires us to use a triangle 
waveform. 

What precisely is ring modulation? Well, it's a fancy way of saying 
that one voice is going to affect another voice in a particular way, and 
since words are usually inadequate to describe a musical effect, let's 
take a look at a short program. 

10 V=54272 

20 POKEY +4 , •• POKEV+5, 9 = POKEV+6, = POKEV+4, 33 

30 POKEV+18,0=POKEV+19,9=POKEV+20,0^POKEV+17,0 

40 P0KEV+16,255=P0KEV+18,65 

50 POKEV+24,15 

60 A=INT(RND(.5)*20 + 10)=B=B+iaFB>255THENB=0 

70 PuKEV+l,A:P0KEg+15,B 

80 FORI=1TO1000=NEXT^GOTO20 

All this program will do as it stands is to produce two different notes 
for voice one and voice three. Here, voice one is currently a sawtooth 
waveform, and voice three is a pulse waveform. However, if we alter 
lines 20 and 50 as shown below, you should be able to hear the 
difference. 
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28 POKEV+4, = POKEV+5, 9 = POKEV+6, « = POKEV+4, 17 
58 POKEv+24,17 

This is now modulating voice one with respect to voice three, in Other 
words, we are now combining the frequencies of voices one and three. 
Not a very good demonstration, but at least it works. The synthesiser 
program in Chapter 10 will give you a far better idea of what is 
happening with ring modulation. 

Synchronisation involves taking the note produced by voice one and 
synchronising it with the note produced by voice three. For this effect 
to work properly, voice three has got to be set to a frequency lower 
than that of voice one. Rather than give a short demonstration here, 
we'll wait for the synthesiser program before going into this in more 
detail, as synchronisation works better with background rhythms as 
opposed to single notes. 



Musical practice 

Continuing with our policy of presenting educational musical programs, 
this one allows you to play a series of musical notes and see those 
notes depicted on a stave above the keyboard as you play. This gives 
some feeling for what a note will sound like when it is placed in a 
particular spot on the stave, and, interestingly enough, seems to work 
better in reverse. In other words, you are playing notes and making 
those notes appear at a particular place on the stave, but what you 
seem to learn is how a note will sound when it is displayed on the 
stave. At least it improved my sight reading. 



P0KE5324B+21.0 

1 P0KE532B1 , 1 1 i P0KE532B0, 1 1 i P0KES3272 ,23i PRINT" CCL 
R,BLK,RVS3MOTE PRACTICE." 

5 BOSUB40000 1 B0SUB50000 1 PR I NT " E CLR , 2CD 3 " 1 6DSUB6 1 BO 
TOUO 

6 PR I NT " C BLK . 3SP , 6SH I FT* , CBMR , 23SH I FT* 3 

7 PRINT" tBLK,3SP,6SHIFT*,SHIFT+,23SHIFT*3 
B PRINT"*.BLK,3SP,6SHIFT*,SHIFT+,23SHIFT#3 

9 PRINT"I.BLK,3SP,6SHIFT*,SHIFT+ f 23SHIFT*3 

10 PRINT"CBUK,3SP,6SHIFT*,CBME,23SHIFT*3 

1 1 POKEV+23 , 3 s PQKEV+1 , 70 1 POKEV , 40 1 POKE V+ 39 , 
i 2 POKEV+2 , 60 1 POKE V+3 , 70 « POKEV+40 , 

13 POKEV+41 ,Si F0RI-42T046S POKEV+I , 1 : NEXT 

18 PRINT" C2CD3 

19 PRINT" C46P,RVS, BLK, 2BP, OFF, SP,RVS,2SP, OFF, 4SP,R 
VS,2SP,OFF,SP,RVS,2SP,OFF,SP3"! 
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20 PRINT" CRVS,2SP, OFF, 4SP, RVS, 2SP, OFF, SP, RVS, 2SP,0 
FF3" 

21 REM LINES 19 AND 20 FORM ONE LINE TOGETHER ON T 
HE 64 

22 PRINT" C4SP,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP,R 
VS,2SP,0FF,SP,RVS,2SP,0FF,SP3"s 

23 PRINT" CRVS,2SP, OFF, 4SP, RVS, 2SP, OFF, SP, RVS, 2SP,0 
FF3" 

24 REM LINES 22 AND 23 FORM ONE LINE TOGETHER ON T 
HE 64 

30 PRINT" C4SP,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP.R 
VS,2SP,0FF,SP,RVS,2SP,0FF,SP3"$ 

31 PRINT" CRVS,2SP, OFF, 4BP, RVS, 2SP, OFF, SP, RVS, 2BP,0 
FF3" 

32 REM LINES 31 AND 32 FORM ONE LINE TOGETHER ON T 
HE 64 

40 PRINT" C4SP,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP,R 
VS,2SP,0FF,SP,RVS,2SP,0FF,SP3"s 

41 PRINT" CRVS,2SP, OFF, 4SP, RVS, 2BP, OFF, SP, RVS, 2SP,0 
FF3" 

42 REM LINES 41 AND 42 FORM ONE LINE TOGETHER ON T 
HE 64 

50 PRINT" C2SP,RVS,WHT,2SP,BLK,2SP,WHT,SP,BLK,2SP,W 
HT,SP,CBMM,2SP,BLK,2SP,WHT3"s 

51 PRINT" ESP, BLK,2SP,WHT,SP,BLK,2SP,WHT,SP,CBMM,2S 
P,BLK,2SP,WHT,SP,BLK,2SP,WHT,SP3"s 

52 PRINT" CCBMM3": REM LINES50,51 AND 52 COMBINE TOG 
ETHER TO FORM ONE LINE 

60 PR I NT " C 2SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM . 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " j 

61 PR I NT " C 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2BP , CBMM 3 " 

62 REMLINES 60 AND 61 FORM ONE CONTINUOUS LINE ON 
THE 64 

70 PR I NT " C 2SP , RVS , WHT , 2SP , CBMM , 2SP . CBMM . 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " ; 

71 PR I NT " C 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " 

72 REMLINES 70 AND 71 FORM ONE CONTINUOUS LINE ON 
THE 64 

BO PR I NT " C 2SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " s 

81 PR I NT " C 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " 
8S REMLINES 80 AND 81 FORM ONE CONTINUOUS LINE ON 
THE 64 

90 PR I NT " C 2SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " J 

91 PR I NT " C 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " 

92 REMLINES 90 AND 91 FORM ONE CONTINUOUS LINE ON 
THE 64 

1 00 PR I NT " C 2SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 
2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " » 

101 PR I NT " C 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " 

102 REMLINES 100 AND 101 FORM ONE CONTINUOUS LINE 
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ON THE 64 

105 RETURN 

110 PRINT" C CD. BLK 3 PRESS 'SPACE' TO CONTINUE." 

120 F0RI-1T010:BETSP*8NEXT 

130 GETSP*s IFSP*<>" "THEN 130 

135 POKEV+21,0 

140 PR I NT "CCLR, BLK 3 THIS PROGRAM AIMS TO TEACH YOU 

HOW TO RECOGNISE NOTES AS THEY "s 

150 PR I NT "APPEAR ON A MUSICAL STAVE. AS YOU P 

LAY USING THE KEYBOARD,"! 

155 PRINT" THE NOTES APPEAR ON THE STAVE ABOVE. 

160 PRINT" CCD3 THE KEYBOARD IS PLAYED USING THE SIM 

ILARKEYS TO THE MUSICAL SIMON" t 

170 PRINT" GAME! TRY IT NOW, USING KEYS A-K AND M 

,£,T,Y,U,0 t ' ! ' TO QUIT." 

180 PRINT" E4CU3":G0SUB18 

1 B2 POKEV+2 1 . 4 i POKEV+4 1,8: GOSUB 1 85 : G0T0230 

1 B5 GET A* 1 1 F A*« " " THEN 1 85 

1 86 I F A*- " ! " THENPOKE V+2 1 , O i RETURN 

190 F0RI-1T017: IFA*-MID* <KE*, 1,1) THEN200 

195 NEXT 

196 GOTO 185 

200 POKES+4 , O i POKES+4 , 65 

210 P0KES+l,N0U + I-l>«P0KES,N0(I + I)sP0KEV+4,SP<I + I 

-1>:P0KEV+5,SP(I+I) 

220 GOTO 195 

230 PRINT"CCLR,BLK3W0TE PRACTICE. C2CD3"iB0BUB6iP0K 

E V+2 1,255 

250 F0RI-lT05:P0KEV+4+I*2,100-H*30:NEXT 

256 PRINT"C2CD3PLAY AWAY: ' ! ' TO QUIT." 

257 REM KEY PRESSED 

258 F0RJ-1T05 

260 BET A* i I FA*» " " THEN260 

26 1 I F A*- " ! " THENPOKEV+2 1 , : PR I NT " C CLR , 2CD , BLK 3 B YE . 
" : END 

262 I F ASC ( A* >< 580R ASC < A* > >90THEN260 
264 A"ASC ( A4> ) 

268 F0RI-1T017: IFA*«MID* <KE*, 1,1) THEN274 

270 NEXTII80T0260 

272 REM PLAY NOTE 

274 POKES+4, Oi POKES+4, 65 

276 POKES+1 ,N0 < I + I-l > sPOKES,NO ( I + I ) : POKEV+4, SP < I + I 
-1):P0KEV+5,SP<I+I> 

277 P0KEV+5+J*2,NP(I) 

278 I F I > 1 0THENP0KE2042+ J , 255 : G0T028O 

279 P0KE2042+J,254 

280 NEXTJiG0T0258 

30001 DATAO,0,0,0,8,0,0 

30002 DATA34,0,0,66,0,0,66 

30003 DATAO, 0,66, 0,0, 68,0 

30004 DATAO, 88, 0,0, 224, 0,3 

30005 DATA32,0,4, 124,0,8, 162 
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30006 

30007 

30008 

30009 

30011 

30012 

30013 

30014 

30015 

30016 

30017 

30018 

30019 

30021 

30022 

30023 

30024 

30025 

30026 

30027 

30028 

30029 

30031 

30032 

30033 

30034 

30035 

30036 

30037 

30038 

30039 

30041 

30042 

30043 

30044 

30045 

30046 

30047 

30048 

30049 

30051 

30052 

30053 

30054 

30055 

30056 

30057 

30058 

30059 

30061 

30062 

30063 
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30064 DATAO, 19,0,0, 17, 128,0 

30065 DATA16, 128,0, 16, 128,0, 16 

30066 DATAO, 0, 16,0,0, 16,0 

30067 DATAO, 16,0,0, 16,0,7 

30068 DATA144,0, 15,224,0, 15, 192 

30069 DATAO, 7, 128,0,0,0,0,0 

30070 DATAO, 0,0, 0,0, 0,1 

30071 DATA128, 13, 1,192, 206,1 

30072 DATA224 , 205 , 1 , 1 76 , 222 , 1 , 1 52 

30073 DATA236 , 1 , 1 36 , 220 , 1 , 1 37 , 236 

30074 DATA1, 136, 204, 1,129, 192,1 

30075 DATA 128,0 

30076 DATA1, 128, 0,1, 128,0 

30077 DATA1,128,0,1,128,0,1 

30078 DATA128,0, 123, 128,0,255,0 

30079 DATAO, 252, 0,0, 120,0,0,0 

40000 F0RI=15872T016383sREADA:P0KEI,A:NEXT:V=5324B 

4000 1 FOR I -0T07 » PDKE2040+ 1 , 248+ 1 s NE X T 

40002 F0RI=0T07x POKEV+I ,0s NEXT: POKEV+21 , 15s POKEV+2 
3,0sP0KEV+29,0 

40004 RETURN 

50000 REM MUSICAL AND SPRITE POSITIONS 

50001 DIMN0<34) ,KE*<255) ,AN*<255) ,SP(34) ,NP(17) ,A( 
17) ,B<17) ,C(17) 

50002 DATA4, 73, 4, 208, 5, 103, 5, IBS, 6, 108, 7, 53, 8,23, 8 
,147,9,159,10,205 

50003 DATA4, 139,5,25,6, 16,6,206,7, 163,9,21 ,10,60 
50006 FORI-1T034«READNO(I)«NEXT 

50008 KE*» " ASDFBHJKL I WETYUOP " 

500 10 S-54272 I POKES+3 , 1 1 POKES+2 , 255 s POKES+5 , 9 1 POK 

ES+6 , « POKES+4 , 65 1 POKES+24 , 1 5 

50016 F0RI-lT034iREADSP(I) J NEXT 

50017 F0RI«lT017:READNP(I)sNEXT 

50018 RETURN 

51000 DATA 41,190,65,190,89,190,113,190,137.190.16 
1,190,185,190,209,190 

51001 DATA233, 190,255, 190 

51002 DATA 54,150,78,150,126,150,150,150,174,150,2 
22,150,246,150 

51007 DATA100, 96, 92, 88, 84, 80, 76, 72, 68, 64, 100,96,88 
,84,80,72,68 



Explanation 

Line : Turn all sprites off. 

Line 1 : Let's have a grey background and border, printing in upper 
and lower case rather than upper case and graphics, and finally print 
a short message on the screen. 
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Line 5 : Go to the routine at line 40000, which reads in the data for 
all the sprites. Then go to the routine starting at line 50000 and read 
in some more data, before clearing the screen, drawing up the keyboard 
and stave, and starting the program proper at line 110. 

Lines 6-10 : Draw the stave up. Please note that the strange character 
at the start of lines 7, 8 and 9 is meant to represent a left hand square 
bracket and not an upper case letter L. A slight typing error there! 

Line 1 1 : Expand sprites one and two in the X direction, locate sprite 
one on the screen and make it have a black colour. 

Line 12 : Place sprite two on the screen, and make it also have a black 
colour. 

Line 13 : The colour for sprite three is going to be orange, while all 
the rest of them will be white. 

Line 18 : Print two cursor down characters. 

Lines 19-105 : Draw the keyboard on the screen. Take great care over 
this, because the use of mnemonics has caused us to spill over on 
to two lines rather than just one, as the lines would be if drawn using 
the graphics characters. 

Lines 1 10-130 : Simple loop to wait until the space bar is pressed before 
continuing. 

Line 135 : Turn all sprites off. 

Lines 140-170 : Program instructions. 

Line 180 : Print four cursor up characters before going to the routine 
at line 18 to draw up the keyboard. 

Line 182 : Turn some sprites on and give some colour to sprite three 
(useless really, since we've already done this!). Then go to the routine 
starting at line 185 to allow you to play some practice notes, and then 
go off to line 230. 

Line 185 : Wait for a key to be pressed. 

Line 186 : If that key is the exclamation mark then turn all sprites off 
and return from this routine. 
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Line 190 : Check to see whether the key pressed is equal to one of 
our control keys in the string KE$. If it is, then go to line 200. 

Line 195 : Continue around the loop. 

Line 196 : Back to wait for another key to be pressed. 

Line 200 : Turn the waveform for voice one off then on again. This 
is always necessary on the 64. 

Line 210 : POKE in the note value and the sprite position from the data 
read in via the subroutine at line 50000. 

Line 220 : Back to the main body of this routine. 

Line 230 : Clear the screen, print up a message, draw up the stave 
and keyboard before turning on each and every sprite. 

Line 250 : Give all the musical note sprites an X co-ordinate. 

Line 256 : Just a message. 

Line 258 : Five note sprites, so we have a loop that will be executed 
five times. 

Line 260 : Wait for a key to be pressed. 

Line 261 : If that key is the exclamation mark, then turn all the sprites 
off, clear the screen and end the program. 

Line 262 : Do a check for the ASCII value of the key pressed to prevent 
superfluous keys creeping through. 

Line 264 : Set a variable equal to this ASCII value. 

Line 268 : Start of a check on the key pressed to see if it matches 
one of our control keys. 

Line 270 : Continue around the loop, and when finished go back for 
more. 

Line 272 : Guess what? 

Line 274 : Turn the waveform for voice one off then on again. 
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Line 276 : Put up the sprite position and play the note from the data 
read in via the routine starting at line 50000. 

Line 277 : Couldn't fit this on to line 276. 

Line 278 : If one of the flat notes has been played, then set the 
appropriate sprite data pointer to point to the area of memory that 
contains the data for a flat note sprite. 

Line 279 : Let's have an ordinary note sprite back again. 

Line 280 : Next step around the J loop before starting again. 

Lines 30001-30079 : Sprite data, read in by ... 

Line 40000 : Read all sprite data in and set the variable V. 

Line 40001 : Set all the sprite data pointers. 

Line 40002 : Some default positions and conditions for the sprites. 

Line 40004 : End of routine. 

Line 50000 : Simple enough. 

Line 50001 : Declare a few arrays. 

Lines 50002-50003 : Note values in high order, low order format. 

Line 50006 : Read those note values in. 

Line 50008 : Control keys that will actually produce a musical note. 

Line 50010 : Set up some sound values. 

Line 50016 : Read the values for the various note sprite positions on 
the keyboard. 

Line 50017 : And ditto for positions on the stave. 

Line 50018 : End of this routine. 

Lines 51000-51002 : Sprite positions on the keyboard. 

Line 51007 : And on the stave. 
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Note recognition 

Our second musical program for this chapter is a note recognition 
exercise. A note will be displayed on the stave, and you will have to 
play the correct note on the keyboard. The stave and keyboard used 
is virtually the same as in the previous program, so you could save 
your fingers some tapping by getting those lines in now. 



P0KE5324B+2i,0 

1 P0KE532B 1.5s P0KE53280 , 1 : P0KE53272 • 23 : PR I NT " C CLR . 
BLK3WOTE rtECOGN I T I ON . " 

5 GOSUB40000 s B0SUB50000 : PR I NT " C HOME . 2CD 3 " : G0SUB6 s G 
OTOliO 

6 PR I NT " C BLK , 3SP . 6SH I FT* . CBMR . 23SH I FT* 3 

7 PRINT" Z.3SP,6SHIFT#.SHIFT+,23SHIFT*3 

8 PRINT"t3SP.6SHIFT*.SHIFT+.23SHIFT*3 

9 PRINT" /L3SP,6SHIFT*,SHIFT+,23SHIFT*3 

10 PRINT" C3SP,6SHIFT*.CBME.23SHIFT*3 

1 1 POKEV+23 . 3 : POKEV+ 1,70: POKEV . 40 : POKEV+39 . O 

1 2 POKEV+2 . 60 : POKEV+3 , 70 : POKEV+40 . 

13 POKEV+41 .8:F0RI=42T046:P0KEV+I , 1 : NEXT 

18 PRINT" C2CD3 

19 PRINT"BSP.RVS,BLK.2SP,0FF.SP.RVS.2SP.0FF.4SP.RV 
S,2SP,OFF,SP,RVS,2SP,OFF,SP,RVS3"; 

20 PRINT" C2SP, OFF, 4SP . RVS , 2SP , DFF 3 

21 REM LINES 19 AND 20 COMBINE TOGETHER TO FORM ON 
E LINE ON THE 64 

30 PRINT"aSP,RVS,BLK,2SP,0FF,SP,RVS,2SP,0FF,4SP,RV 
S,2SP f 0FF,SP,RVS,2SP,0FF.SP,RVS3"s 

31 PRINT" C2SP, OFF, 4SP, RVS. 2SP.OFF3 

32 REM LINES 30 AND 31 COMBINE TOGETHER TO FORM ON 
E LINE ON THE 64 

40 PRINT"SSP.RVS,BLK,2SP,0FF.SP.RVS.2SP.0FF,4SP.RV 
S,2SP,0FF,SP,RVS,2SP,0FF,SP,RVS3"! 

41 PRINT" C2SP, OFF, 4SP, RVS, 2SP,OFF3 

42 REM LINES 40 AND 41 COMBINE TOGETHER TO FORM ON 
E LINE ON THE 64 

50 PRINT" C6SP, RVS, WHT.2SP. BLK. 2SP,WHT,SP, BLK, 2SP.W 
HT,SP,CBMM,2SP,BLK,2SP f WHT3": 

51 PRINT" CSP, BLK, 2S0.WHT, BLK, 2SP , WHT , SP . CBMM , 2SP . B 
LK,2SP3" 

52 REM LINES 50 AND 51 COMBINE TOGETHER TO FORM ON 
E LINE ON THE 64 

60 PR I NT " C 6SP , RVS , WHT , 2SP . CBMM , 2SP . CBMM . 2SP . CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " s 

61 PRINT"C2SP,CBMM,2SP,CBMM3" 
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62 REM LINES 60 AND 61 JOIN TOGETHER TO FORM ONE L 
INE ON THE 64 

70 PR I NT " 1 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " ; 

71 PRINT"C2SP,CBMM,2SP,CBMM3" 

72 REM LINES 70 AND 71 JOIN TOSETHER TO FORM ONE L 
INE ON THE 64 

80 PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " : 

81 PRINT"C2SP,CBMM,2SP,CBMM3" 

82 REM LINES 80 AND 81 JOIN TOGETHER TO FORM ONE L 
INE ON THE 64 

90 PR I NT M C 6SP , RVS , WHT , 2BP , CBMM , 2SP „ CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " t 

91 PRINT"C2SP,CBMM,2SP,CBMM3" 

92 REM LINES 90 AND 91 JOIN TOGETHER TO FORM ONE L 
INE ON THE 64 

1 00 PR I NT " C 6SP . RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 
2SP , CBMM , 2SP , CBMM , 2SP , CBMM 3 " t 

101 PRINT"C2SP,CBMM,2SP,CBMM3" 

102 REM LINES 100 AND 101 JOIN TOGETHER TO FORM ON 
E LINE ON THE 64 

105 RETURN 

110 PRINT" C CD, BLK 3 PRESS ' SPACE' TO CONTINUE." 

120 F0RI=1T010:GETSP*bNEXT 

130 GETSP*: IFSP*<>" "THEN 130 

135 POKEV+21,0 

140 PRINT"CCLR.BLK3IN THIS GAME I SHALL SHOW A NUM 

BER OF NOTES (NO BLACK NOTESs "s 

150 PR I NT "REFERENCE ONLY) , AND YOU SHALL HAVE TO R 

EPEAT THEM USING THE KEYBOARD. 

160 PRINT" C CD 3 THE KEYBOARD IS PLAYED USING THE SAM 

E KEYS AS THE MUSICAL SIMON"; 

170 PRINT" GAMEs TRY IT NOW, USING KEYS A-K AND « 

,E,T,Y,U,0 s • ! ' TO QUIT." 

180 G0SUB18 

1 82 POKEV+2 1,4: POKEV+4 1 , B : GOSUB 1 85 s G0T0230 

1 85 GETA* : I FA*= " " THEN 1 85 

186 IFA*=" ! "THENRETURN 

190 F0RI-1T014: IFA*-MID* (KE*, 1,1) THEN200 

195 NEXT 

196 GOTO 185 

200 P0KES+4,0!P0KES+4,65 

210 POKES+1 ,N0 < I + I-l ) s POKES, NO ( I + I ) : POKEV+4 .SP ( I + I 

-l)sP0KEV+5,SP<I+I) 

220 GOTO 195 

230 PR I NT " I CLR . BLK 3 NOTE KECOGN I T I ON . C 2CD 3 " s G0SUB6 s 

POKEV+2 1,255 

240 CO-INT <RND(. 5) *5)+l 

250 F0RI-1T0C0 

252 A= I NT ( RND < . 5 ) *B ) s A=72+ A*4 s POKE V+4+ 1 *2 . 1 00+ 1 *20 

:P0KEV+5+I*2,A 
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254 A<I)=A:B<I)=100+I*20:NEXT 

256 PRINT"C2CD3NOW IT'S YOUR TURN : REPEAT THE NOT 
ES!" 

257 F0RK=1TD10: BETA*: NEXT 

258 F0RJ=1T0C0 

260 GETA*sIFA*=""THEN260 

262 I FASC < A* X 650RASC ( A* ) >90THEN260 

264 A=ASC<A*> 

268 F0RI=1T014: IFA*=MID* <KE*. I , 1 >THEN274 

270 NEXTIsS0T0260 

272 REM PLAY NOTE 

274 PQKES+4„0:P0KES+4,65 

276 P0KES+1.N0(I+I-1> :P0KES,N0 (I+I ) : P0KEV+4.SP < I+I 

-1) :P0KEV+5,SP<I+I> 

278 P0KEV+5+J*2.NP(I>sC<J)-NP(I) 

280 NEXT J 

284 FORI=iTOCOs IFA ( I ) <>C ( I ) THENPRINT" CH0ME3 

CH0ME,RVS,BLK3HR0NG!":Z=Z+1:ZQ=ZQ+1 

288 NEXTIs IFZQ>0THEN299 

290 PRINT"[H0ME3 C HOME. RVS.WHT 3 WIGHT ! " 

299 F0RI«lT01500sNEXTsY=Y+C0-ZQ 

300 PR I NT " t HOME 3 C HOME 3 R I GHT " s Y : " WRONG " 
:Z:ZQ=0 

301 F0RI=0T015!P0KEV+I,0sNEXT 

302 F0RI=»lT03000sNEXT:G0T0230 

30001 DATAO. 0.0, 0,8, 0,0 

30002 DATA34, 0,0, 66, 0,0,66 

30003 DATAO, 0,66, 0,0, 68,0 

30004 DATAO, 88, 0,0, 224, 0.3 

30005 DATA32,0,4, 124,0,8, 162 

30006 DATAO, 9, 49, 0,9, 17.0 

30007 DATA8, 146,0,4,20,0,3 

30008 DATA248,0,0,16,0.12.16 

30009 DATAO. 12,48,0,7. 192.0,0 

30011 DATAO, 0,0, 0,0, 0,0 

30012 DATAO, 0.0, 0,0, 0,0 

30013 DATAO, 0,0, 0,0, 24,0 

30014 DATAO, 126,0.0, 153.0,1 

30015 DATA30,0,1,24,0,1,24 

30016 DATAO, 1,24. 0,0, 154.0 

30017 DATAO, 124,0,0,24,0.0 

30018 DATAO, 0.0. 0,0, 0,0 

30019 DATAO, 0,0, 0,0, 0,0,0 

30021 DATAO, 0,0, 0,0, 0,0 

30022 DATA24,0,0,24,0,0,28 

30023 DATAO, 0,28. 0,0, 22,0 

30024 DATAO, 19,0,0, 17, 128,0 

30025 DATA16, 128,0, 16. 128,0, 16 

30026 DATAO, O, 16,0,0, 16,0 

30027 DATAO, 16,0,0, 16,0.7 

30028 DATA144,0, 15,224,0, 15, 192 

30029 DATAO, 7, 128,0,0,0.0,0 
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30031 DATAO, 0,0, 0,0, 0,0 

30032 DATA24, 0,0,24,0,0,28 

30033 DATAO, 0,28, 0,0, 22,0 

30034 DATAO, 19,0.0, 17, 128,0 

30035 DATA16, 128,0, 16, 128,0, 16 

30036 DATAO, 0, 16,0,0, 16,0 

30037 DATAO, 16,0,0, 16,0,7 

30038 DATA144.0, 15,224,0, 15, 192 

30039 DATAO, 7, 128,0,0,0,0,0 

30041 DATAO, 0,0, 0,0, 0,0 

30042 DATA24,0,0,24,0,0,28 

30043 DATAO, 0,28, 0,0, 22,0 

30044 DATAO, 19,0,0, 17, 128,0 

30045 DATA16, 128,0, 16, 128,0, 16 

30046 DATAO, 0, 16,0,0, 16,0 

30047 DATAO, 16,0,0, 16,0,7 

30048 DATA144,0, 15,224.0, 15, 192 

30049 DATAO, 7, 128,0,0,0,0,0 

30051 DATAO, 0,0, 0,0, 0,0 

30052 DATA24,0,0,24,0,0,28 

30053 DATAO, 0,28, 0,0, 22,0 

30054 DATAO, 19,0,0, 17, 128,0 

30055 DATA16, 128,0, 16, 128,0, 16 

30056 DATAO. O, 16,0,0, 16,0 

30057 DATAO, 16,0,0, 16,0,7 

30058 DATA144,0, 15.224,0, 15, 192 

30059 DATAO, 7, 128,0,0,0,0,0 

30061 DATAO, 0,0, 0,0. 0.0 

30062 DATA24,0,0,24,0,0,28 

30063 DATAO. 0.28, 0,0, 22,0 

30064 DATAO, 19,0,0, 17, 128,0 

30065 DATA16, 128,0, 16, 128,0, 16 

30066 DATAO, O, 16,0,0, 16,0 

30067 DATAO, 16,0,0, 16,0,7 

30068 DATA144.0, 15,224,0, 15, 192 

30069 DATAO, 7, 128,0,0,0,0,0 

30071 DATAO, 0,0, 0,0, 0,0 

30072 DATA24,0,0,24,0,0,28 

30073 DATAO, 0,28, 0,0, 22,0 

30074 DATAO, 19,0,0, 17, 128,0 

30075 DATA16, 128,0, 16, 128,0, 16 

30076 DATAO, 0, 16,0,0, 16,0 

30077 DATAO, 16,0,0, 16,0,7 

30078 DATA144,0, 15,224,0, 15, 192 

30079 DATAO, 7, 128,0,0,0,0,0 

40000 FOR I - 1 5872TD 1 6383 s READA s POKE I , A : NE X T : V=5324B 

40001 F0RI«0T07sP0KE2040+I ,248+1 1 NEXT 

40002 FOR I =0T07 : POKEV+ 1 , : NE X T : POKE V+2 1,15: POKEV+2 
3,0 s POKE V+29,0 

40004 RETURN 

50000 REM MUSICAL AND SPRITE POSITIONS 

50001 DIMN0<28) ,KE*<255) , AN* (255) ,SP<28) ,NP(14) ,A( 
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14) ,B<14> .C(14) 

50002 DAT A4, 73. 4, 208, 5. 103. 5. 185. 6. 108. 7, 53. 8. 23. 8 

,147,4,139,5,25,6,16.6.206 

50004 DAT A7, 163.9,21 

50006 F0RI=1T028:READN0(I):NEXT 

50008 KE*="ASDFGHJKWETYUO" 

500 1 S=54272 s POKES+3 .10: P0KES-+2 . 255 : POKES+5 . 9 : POK 

ES+6 , s POKES+4 . 65 : POKES+24 . 1 5 

50016 F0RI=1T028:READSP<I):NEXT 

50017 F0RI=1T08:READNP(I):NEXT 

50018 RETURN 

51000 DATA 73,190,97.190,121.190,145,190.169.190,1 

93,190,217,190,241,190 

51002 DATA 86,150.110.150.158,150,182,150,206,150, 

255,150 

51004 DATA100,96,92,88,B4,80,76,72 



Explanation 

Line : Turn all sprites off. 

Line 1 : Let's have a grey background and border, printing in upper 
and lower case rather than upper case and graphics, and finally print 
a short message on the screen. 

Line 5 : Go to the routine at line 40000, which reads in the data for 
all the sprites. Then go to the routine starting at line 50000 and read 
in some more data, before clearing the screen, drawing up the keyboard 
and stave, and starting the program proper at line 110. 

Lines 6-10: Draw the stave up. Please note that the strange character 
at the start of lines 7, 8 and 9 is meant to represent a left hand square 
bracket and not an upper case letter L. A slight typing error there! 

Line 1 1 : Expand sprites one and two in the X direction, locate sprite 
one on the screen and make it have a black colour. 

Line 12 : Place sprite two on the screen, and make it also have a black 
colour. 

Line 13 : The colour for sprite three is going to be orange, while all 
the rest of them will be white. 

Line 18 : Print two cursor down characters. 

Lines 19-105 : Draw the keyboard on the screen. Take great care over 
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this, because the use of mnemonics has caused us to spill over on 
to two lines rather than just one, as the lines would be if drawn using 
the graphics characters. 

Lines 1 10-130 : Simple loop to wait until the space bar is pressed before 
continuing. 

Line 135 : Turn all sprites off. 

Lines 140-170 : Program instructions. 

Line 180 : Off to line 18 to draw up the keyboard. 

Line 182 : Turn some sprites on and give some colour to sprite three. 
Then go to the routine starting at line 185 to allow you to play some 
practice notes, and then go off to line 230. 

Line 185 : Wait for a key to be pressed. 

Line 186 : If that key is the exclamation mark then return from this 
routine. 

Line 190 : Check to see whether the key pressed is equal to one of 
our control keys in the string KE$. If it is, then go to line 200. 

Line 195 : Continue around the loop. 

Line 196 : Back to wait for another key to be pressed. 

Line 200 : Turn the waveform for voice one off then on again. 

Line 210 : POKE in the note value and the sprite position from the data 
read in via the subroutine at line 50000. 

Line 220 : Back to the main body of this routine. 

Line 230 : Clear the screen, print up a message, draw up the stave 
and keyboard before turning on each and every sprite. 

Line 240 : Pick a number, any number, between one and five. 

Line 250 : For I equals 1 to that number. 

Line 252 : Generate a random number between nought and seven. 
Turn that number into a vertical sprite position, and POKE that sprite 
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onto the screen. 

Line 254 : Just store the values, for checking later. 

Line 256 : Okay, it's the turn of the player to have a go now. 

Line 257 : Clear the keyboard buffer so that an incorrect note isn't 
accidentally played. 

Line 258 : Perform a loop CO times. 

Line 260 : Wait for a key to be pressed. 

Line 262 : If it isn't alphabetic then ignore it. 

Line 264 : Take the ASCII value of the key pressed. 

Line 268 : Check to see if it's a valid key. 

Line 270 : Continue our check and then back for another note. 

Line 272 : Bit obvious, really. 

Line 274 : Turn the waveform for voice one off and on again. 

Line 276 : Play note and display sprite on screen using data read in 
from routine starting at line 50000. 

Line 278 : Rest of that play and display, and store the note played in 
the array C. 

Line 280 : Get another note. 

Line 284 : Compare the randomly generated notes with the played 
notes, and if the player's got one wrong, then tell him. 

Line 288 : Continue the check, and if the player's got at least one note 
wrong then jump to line 299. 

Line 290 : A miracle! Every note repeated correctly, so print out a 
message of congratulations. 

Line 299 : Delay for a little while, before working out how many notes 
the player has got right overall. 
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Line 300 : Update the 'right/wrong' score, and reset the ZQ variable 
to zero. 

Line 301 : Remove all the sprites. 

Line 302 : Hang on for a while, before going back for more. 

Lines 30001-30079 : Sprite data, read in by ... 

Line 40000 : Read all sprite data in and set the variable V. 

Line 40001 : Set all the sprite data pointers. 

Line 40002 : Some default positions and conditions for the sprites. 

Line 40004 : End of routine. 

Line 50000 : Simple enough. 

Line 50001 : Declare a few arrays. 

Lines 50002-50003 : Note values in high order, low order format. 

Line 50006 : Read those note values in. 

Line 50008 : Control keys that will actually produce a musical note. 

Line 50010 : Set up some sound values. 

Line 50016 : Read the values for the various note sprite positions on 
the keyboard. 

Line 50017 : And ditto for positions on the stave. 

Line 50018 : End of this routine. 

Lines 51000-51002 : Sprite positions on the keyboard. 

Line 51007 : And on the stave. 

Let's take a look at some filtering techniques now. 
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9 
Filtering Techniques 



The 64 is probably one of the most powerful home computers when 
it comes to sound, and we've already seen how envelope shaping, 
ring modulation and synchronisation are all perfectly feasible. However, 
there is one other technique which we have yet to look at, and that 
involves filtering notes. There are a number of possibilities that we 
can use, and the synthesiser program in the next chapter explores them 
all. For now, let's start with a few definitions and some theory. 

Filtering 

We've already stated that there are three main types of filter on the 
64, and these are the low pass, high pass and band pass, which let 
through various frequencies in the tones but dismiss others according 
to various parameters. We can combine a high pass and a low pass 
filter together to get what is termed a notch filter, and with these four 
factors in mind, we can also alter the resonance of the filter. A high 
resonance gives a very intense effect, while a low resonance is 
altogether smoother. 

By setting the resonance to be whatever we want, we can then set 
up various types of filter and, by altering the cutoff frequency so that 
differing frequencies come through while a note is playing, just one 
note can produce some interesting noises. 

And although we haven't got one of the features of some very 
expensive synthesisers, namely an envelope generator that controls 
the filter cutoff so that it can automatically rise and fall while the note 
is playing, we can always get round this with a suitable piece of 
software. 

Finally, each voice can either go through the filter or bypass it 
completely and go straight to the audio output. 

The registers to look for are numbers 21 , 22 and 23, as these are the 
84 



ones that control the cutoff frequency (21 and 22) and the resonance 
(23). 

If bit of register 23 is set to a 1 (i.e. you POKE V + 23, 
PEEK(V + 23)OR1) then voice 1 will be routed through the filter. 
POKEing it with OR2 will set voice 2 through the filter, and POKEing 
it with OR3 will put voice 3 through the filter. 

On a scale of 1 to 15, the resonance is then selected by deciding what 
sort of resonance you want (15 being the maximum), and then 
POKEing the register with your resonance value times 1 6, plus of course 
the value for whatever voice, if any, you want to route through. 

So, if you wanted maximum resonance and only voice 1 to go through 
the filter, you would have to POKE V + 23 with 15 times 16 plus 1, 
or 241. 

The type of filter that is used depends on the content of register V + 24. 
Normally set to 1 5 to control the volume, the top four bits of this register 
can be altered to produce one of the four filter types. 

Setting bit 4 (POKE it with 15 plus 16) selects low pass, bit 5 (POKE 
it with 15 plus 32) band pass, and bit 6 (POKE it with 15 plus 64) high 
pass. POKEing the register with 15 plus 128, i.e. setting bit 7, stops 
voice 3 from reaching any audio output, although it is still actively 
working away. 

If we stop it going through the filter as well, voice 3 does not produce 
any sound at all, but it can still be used to modulate other voices without 
producing any odd noises of its own in the background. 

Finally, to select the cutoff frequency, looking at the synthesiser 
program should help here. 

To illustrate graphically what's going on, here are a few illustrations 
which point out just some of the effects that SID can achieve. 
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LOW RESONANCE- 



MEDIUM RESONANCE 



HIGH RESONAMCE 



LOW 
PASS 



HIGH 
PASS 



BANC) 
PASS 



CUT- OFF PREflnjSNCY 




By careful adjustment of any or all of the parameters, the power of 
SID will slowly begin to become apparent to you. Even if you only 
produce noise at first, a noise is better than total silence. Well, usually. 

As we said right at the start of this chapter, the synthesiser program 
in Chapter 10 explores most of the concepts explored here, so to get 
the most out of filtering it would be advisable to type that program 
in and get it up and running. 

To end, a non-musical diversion. This program has nothing whatsoever 
to do with music. To prevent you from suffering a total aural assault 
throughout this entire book, here is a program that completely re- 
defines the Commodore 64 character set. 



Charset 

Most of this program is data, apart from a brief setting up and 
explanatory set of notes at the start, so get those fingers busy! 
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5 P0KE53272, 23 zGOSUB lOOOO 

10 P0KE56333,127 

20 P0KE1.51 

60 F0RX-0T01752 

70 READAiP0KE53248+X,A 

80 NEXT 

90 POKE 1,55 

100 P0KE56333,129 

110 P0KE64B,196 

120 P0KE56576,4 

130 P0KE53272,21 

140 PRINT" CCLR,BLK,RVSD THE WORLD OF GRAPH I CS!" 

150 PRINT"C2CD:iUKE THIS s" 

1 52 PR I NT s PR I NT i PR I NT " ABCDEFGH I JKLMNOPQRSTUVWX YZ " 

154 PR I NT " C CD , R VS , RED 3 ABCDEFGH I JKLMNOPQRBTUVW X Y Z " 

156 PRINT" CCD, BLU3 ABCDEFGH IJKLHNOPQRSTUVUXYZ" 

158 PRINT" CCD, RVS,BR01ABCDEFGH1JKLMN0PGIRSTUVHXYZ" 

160 END 

1 0000 P0KE532B0 , 9 : P0KE532B 1 , 7 s PR I NT " C CLR , R VS . BLK 1 H 
ELCOME TO THE WORLD OF GRAPHICS!" 

10001 PRINT 

10002 PR I NT "THIS PROGRAM ISN'T EXACTLY MUSICAL, BU 
T YOU MIGHT FIND THE CHARACTER"! 

10004 PRINT" SET IT PRODUCES USEFUL. IT COULD 

BE USED IN AN ADVENTURE PROGRAM" j 

10006 PRINT" PERHAPS, OR INDEED ANYPROGRAM THAT RE 

LIES HEAVILY ON TEXT." 

10008 PRINT" C2CD3YOU'LL NOW HAVE TO WAIT A BIT WHI 

LE THE NEW CHARACTER SET DATA "s 

10010 PRINT"IS READ IN. WHENWE'RE FINISHED, YOU'L 

L BE ABLE TO TYPE IN "« 

10012 PR I NT "UPPER AND LOWER CASE, REVERSE OR NON-R 

EVERSE, IN ANY COLOUR YOU "» 

10014 PR I NT "FEEL LIKE, AND THE CHARACTERS WILL A 

LL APPEAR IN THIS NEW FORMAT." 

10016 PRINT" C2CD 3 WANG ON." 

10018 RETURN 

30001 DATA32,60, 102, 110, 110,96,98,60 

30002 DATAO, 0,1, 63, 102, 102, 102, 63 

30003 DATAO, 192,96, 124, 102, 102, 102,60 

30004 DATAO, 0,0, 62, 98, 96, 98, 62 

30005 DATAO, 14, 12,60, 102, 102, 102,60 

30006 DATAO, 0,0, 60, 102, 124,96,60 

30007 DATAO, 56, 108,96,252,96,96, 192 

30008 DATAO, 3, 62, 102,62,6, 102, 60»REM8 

30009 DATA224,96,96, 124, 102, 102, 102, 103 

30011 DATAO, 0,0, 126,24,24,24, 126 

30012 DATAO, 0,0, 63, 12, 12, 108,60 

30013 DAT A224, 96,96, 124, 102,124, 108, 102tREMK 

30014 DATAO, 48, 24, 24, 24, 24, 24, 12 

30015 DATAO, 0,0, 54, 127, 107, 107,227 

30016 DATAO, 0,0, 238, 102, 118, 110,230 
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30017 DATAO, 0,0, 60, 102, 102, 102,60 

30019 DATAO, 0,0, 124, 102,252,96,96s REMP 

30020 DATAO, 0,3, 62, 102,62,6,7 

30021 DATAO, 0,0, 110, 58, 48, 48, 112 

30022 DATAO, 0,0, 30, 48, 28, 6, 60 

30023 DAT A24 , 24 , 24 , 254 , 1 52 , 24 , 27 , 3 1 : REMT 

30024 DATAO ,0,0, 238 , 1 02 , 1 02 , 1 02 , 63 

30025 DATAO ,0 , , 102 , 102 , 102 , 60, 24 

30026 DATAO, 0,0, 99, 107, 127, 119,227 

30028 DATAO, 0,0, 102,60,24,60, 102 

30029 DATAO, 3, 102, 102,62,6, 102,60 

30030 DATAO, 0,0, 126, 12,48,98, 126: REMZ 

30031 DATAO, 60, 48, 48, 48, 48, 48, 60 

30032 DATAO, 12, 18,48, 124,48,98,252 

30033 DATA0,60,12,12,12,12,12,60 

30034 DATAO, 0,24, 60, 126,24,24,24 

30035 DATA24,0, 16,48, 127, 127,48, 16 

30037 DATAO, 0,0, 0,0, 0,0,0 

30038 DATAO, 24, 24, 24, 24, 0,0, 24 

30039 DATAO, 102, 102, 102,0,0,0,0 

30040 DATAO, 102, 102,255, 102,255, 102, 102 

30041 DATAO, 24, 62, 96, 60, 6, 124,24 

30042 DATAO, 98, 102, 12,24,48, 102,70 

30043 DATAO, 60, 102,60,56, 103, 102,63 

30044 DATAO, 6, 12,24,0,0,0,0 

30046 DATAO, 12,24,48,48,48,24,12 

30047 DATAO, 48, 24, 12, 12, 12,24,48 

30048 DATAO, 0, 102,60,255,60, 102,0 

30049 DATAO, 0,24, 24, 126,24,24,0 

30050 DATAO, 0,0, 0,0, 24, 24, 48 

30051 DATAO, 0,0, 0,126,0,0,0 

30052 DATAO, 0,0, 0,0, 0,24, 24 

30053 DATAO, 0,3, 6, 12,24,48,96 

30055 DATAO, 60, 102, 110, 118, 102, 102,60 

30056 DATAO, 24, 24, 56, 24, 24, 24, 126 

30057 DATAO , 60 , 1 02 , 6 , 1 2 , 48 , 96 , 126 

30058 DATAO, 60, 102,6,28,6, 102,60 

30059 DATAO, 6, 14,30, 102, 127,6,6 

30060 DATAO, 126,96, 124,6,6, 102,60 

30061 DATAO, 60, 102,96, 124, 102, 102,60 

30062 DATA0,126,102,12,24,24,24,24:REM7 

30064 DATAO, 60, 102, 102,60, 102,102,60 

30065 DATAO, 60, 102, 102,62,6, 102,60 

30066 DATAO, 0,0, 24, 0,0, 24,0 

30067 DATA0,0,0,24,0,0,24,24iREM SEMI COLON 

30068 DATAO, 14,24,48,96,48,24, 14 

30069 DATAO, 0,0, 126,0, 126,0,0 

30070 DATAO, 112, 24, 12, 6, 12, 24, 112 

30071 DATAO, 60, 102,6, 12,24,0,24 

30073 DATA32, 0,0, 0,255, 255, 0,0 

30074 DATAO,28,54,102,102,102,102,63iREMA 

30075 DATAO, 248, 108, 108,60, 102, 102,252 



30076 DATA0,60, 102, 192, 192, 194, 102,60 

30077 DATAO, 1 12, 120, 108, 102, 102, 1 10, 120 

30078 DATAO, 248, 110, 96, 120, 96, 110, 248 

30079 DATA128,248, 110,96,252, 100,96,224 

30080 DATAO, 60, 102, 192,220, 198, 102,60 

30082 DATAO, 239, 102, 102,62, 102, 102,231 

30083 DATAO, 124,24,24,24,24,24, 124sREMI 

30084 DATAO, 62, 28, 12, 12,76, 108,56 

30085 DATAO, 239, 102, 108,56, 108, 102,231 

30086 DATA192,224,96,96,96,96, 110,248 

30087 DATA192,227, 119, 127, 107,99,99,227 

30088 DATA192, 230, 118, 118, 126, 110,1 10, 230s REMN 

30089 DATAO, 60, 102, 195, 195, 195, 102,60 

30091 DATAO, 252, 102, 102, 124,96,96,224 

30092 DATA192, 124, 102, 102, 102,102,60, 14 

30093 DATAO, 252, 102, 102, 124, 108, 102,230 

30094 DATAO, 60, 102, 112, 28, 198, 102, 60 

30095 DATAO , 254 , 1 54 , 24 , 24 , 24 , 24 , 56 

30096 DATA192, 227, 102, 102, 102,102, 102,63 

30097 DATA3, 231, 102, 102, 102, 102, 60, 24 

30098 DATAO, 227, 99, 99, 107, 127,1 19,227 

30100 DATA128,227, 102,60,24,60, 102, 199 

30101 DATAO, 231 , 102, 102,60,24,24,56 

30102 DATA224, 126,6, 12,24,48, 102, 126 

30103 DATAO, 0,48, 124,220,222, 155,219 

30104 DATA24, 12, 18,48, 124,48,98,252 

30105 DATAO, 24, 24, 24, 24, 24, 24, 24 

30106 DATA24,0,0,66,255,255,66,0 

30107 DATAO, 60, 126,60,60,60,60, 126 

30109 DATAO, 0,0, 0,0, 0,0,0 

30110 DATAO, 237, 222, 175, 118, 137, 221, 190 

30111 DATA190, 102, 102, 102,0,0,0,0 

30112 DATAO, 102, 102,255, 102,255, 102, 102 

30113 DATAO, 24, 62, 96, 60, 6, 124,24 

30114 DATAO, 98, 102, 12,24,48, 102,70 

30115 DATAO, 0,60, 126, 195,255,255,255 

30116 DATAO, 6, 12,24,0,0,0,0 

30118 DATAO, 60, 102,60, 153, 102,56,44 

30119 DATA195,48,24, 12, 12, 12,24,48 

30120 DATAO, 0, 102,60,255,60, 102,0 

30121 DATAO, 0,24, 24, 126,24,24,0 

30122 DATAO, 0,0, 0,0, 0,24, 24 

30123 DATA4B,24,24,24,31,31,0,0 

30124 DATAO, 0,0, 0,248, 248, 24, 24 

30125 DATA24, 0,3, 6, 12,24,48,96 

30127 DATAO, 0,0, 0,31, 31, 24, 24 

30128 DATA24,24,24,56,24,24,24, 126 

30129 DATAO, 60, 102,6, 12,48,96, 126 

30130 DATAO, 60, 102,6,28,6, 102,60 

30131 DATAO, 6, 14,30, 102, 127,6,6 

30132 DATAO, 126,96, 124,6,6, 102,60 

30133 DATAO, 60, 102, 96, 124, 102, 102, 60 
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30134 DATAO, 126, 102, 12,24,24,24,24 

30136 DATAO, 60, 102, 102,60, 102, 102,60 

30137 DATAO, 60, 102, 102,62,6, 102,60 

30138 DATAO, 0,0, 24, 0,0, 24,0 

30139 DATAO, 0,0, 24, 0,0, 24, 24 

30140 DATA4B, 14,24,48,96,48,24,14 

30141 DATAO, 24, 24, 24, 248, 248, 0,0 

30142 DATAO, 112,24, 12,6, 12,24, 112 

30143 DATAO, 60, 102,6, 12,24,0,255 

30145 DATA223, 195, 153, 145, 145, 159, 157, 195 

30146 DATA255,255,254, 192, 153, 153, 153, 192 

30147 DATA255,63, 159, 131 , 153, 153, 153, 195 

30148 DATA255,255,255,193,157,159,157,193 

30149 DATA255,241 ,243, 195, 153, 153, 153, 195 

30150 DATA255,255,255, 195, 153, 131 , 159, 195 

30151 DATA255, 199, 147, 159,3, 159, 159,63 

30152 DAT A255, 252, 193, 153, 193, 249, 153, 195: REMG 

30154 DATA31, 159, 159, 131, 153, 153, 153, 152 

30155 DATA255, 255, 255, 129, 231, 231, 231, 129 

30156 DAT A255, 255, 255, 193, 243, 243, 147, 195 

30157 DATA31 , 159, 159, 131 , 153, 131 , 147, 153s REMK 

30158 DATA255, 207, 231 ,231 ,231 ,231 ,231 ,243 

30159 DAT A255, 255, 255, 201 , 128, 148, 148,28 

30160 DATA255,255,255, 17, 153, 137, 145,25 

30161 DATA255,255,255, 195, 153, 153, 153, 195 

30163 DATA255,255,255,131,153,3,i59,159sREMP 

30164 DAT A255, 255, 252, 193, 153, 193, 249, 248 

30165 DAT A255, 255, 255, 145, 197, 207, 207, 143 

30 1 66 DATA255 , 255 , 255 , 227 , 207 , 227 , 249 , 1 95 

30167 DATA231 ,231 ,231 , 1 , 103,231 ,228,224s REMT 

30168 DATA255,255,255, 17, 153, 153, 153, 192 

30169 DATA255,255,255, 153, 153, 153, 195,231 

30170 DATA255,255,255, 156, 148, 128, 136,28 

30172 DAT A255, 255, 255, 153, 193,231 , 193, 153 

30173 DATA255,252, 153, 153, 193,249, 153, 195 

30174 DATA255,255,255, 129,243,207, 157, 129sREMZ 

30 1 75 DAT A255 , 1 95 , 207 , 207 , 207 , 207 , 207 , 1 95 

30176 DAT A255, 243, 237, 207, 131,207, 157,3 

30 1 77 DAT A255 , 1 95 , 243 , 243 , 243 , 243 , 243 , 1 95 

30178 DATA255,255,231 , 195, 129,231 ,231 ,231 

30179 DATA23 1,255, 239, 207, 128, 128, 207, 239 

30 1 8 1 DAT A255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

30182 DATA255, 231, 231, 231, 231, 255, 255, 231 

30183 DATA255, 153, 153, 153,255,255,255,255 

30184 DATA255, 153, 153,0, 153,0, 153, 153 

30185 DATA255,231 , 193, 159, 195,249, 131 ,231 

30186 DATA255, 157, 153,243,231 ,207, 153, 185 

30187 DATA255, 195, 153, 195, 199, 152, 153, 192 

30 1 88 DAT A255 , 249 , 243 , 23 1 , 255 , 255 , 255 , 255 

30 1 90 DAT A255 ,243, 231, 207, 207, 207, 231, 243 

30191 DATA255,207,231 ,243,243,243,231 ,207 

30192 DATA255,255, 153, 195,0, 195, 153,255 
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30193 DATA255,255,231,231,129,231,231,255iREM PLUS 

30 1 94 D AT A255 , 255 , 255 , 255 , 255 , 23 1 , 23 1 , 207 

30 1 95 DAT A255 , 255 , 255 , 255 , 1 29 , 255 , 255 , 255 

30 1 96 DATA255 , 255 , 255 , 255 , 255 , 255 , 23 1 , 23 1 

30 1 97 DATA255 , 255 , 252 , 249 , 243 , 23 1 , 207 , 1 59 

30199 DATA255, 195, 153, 145, 137,153, 153, 195 

30200 DATA255,231 ,231 , 199,231 ,231 ,231 , 129 

30201 DATA255, 195, 153,249,243,207, 159, 129 

30202 DATA255, 195, 153,249,227,249, 153, 195 

30203 DATA255 , 249 , 24 1 , 225 , 1 53 , 1 28 , 249 , 249 

30204 DATA255, 129, 159, 131 ,249,249, 153, 195 

30205 DATA255, 195, 153, 159, 131 ,153, 153, 195 

30206 DATA255, 129, 153, 243, 231 ,231, 231, 231 

30208 DATA255, 195, 153, 153, 195,153, 153, 195 

30209 DATA255, 195, 153, 153, 193,249, 153, 195 

302 1 DAT A255 , 255 , 255 ,231, 255, 255, 231, 255 

30211 D AT A255, 255, 255, 23 1,255, 255, 23 1,231 

30212 DATA255, 241 ,231 ,207, 159,207,231 ,241 

302 1 3 DAT A255 , 255 , 255 , 1 29 , 255 , 1 29 , 255 , 255 

30214 DATA255, 143, 231, 243, 249, 243, 231, 143 

30215 DATA255, 195,253,249,243,231 ,255,231 

302 1 6 DAT A223 , 255 , 255 , 255 , , O , 255 , 255 

30217 DATA255, 227, 201, 153, 153, 153, 153, 192 

30218 DATA255,7, 147, 147, 195, 153, 153,3 

30219 DATA255,195,153,63,63,61,153,195 

30220 DATA255, 143, 135, 147, 153,153, 145, 135 

30221 DATA255,7, 145, 159, 135, 159, 145,7 

30222 DATA255,7, 145, 159,3, 155, 159,31 

30223 DATA255, 195, 153,63,35,57, 153, 195 

30224 DATA255, 16, 153, 153, 129, 153, 153,24 

30225 DATA255, 131 ,231 ,231 ,231 ,231 ,231 , 131:REM1 

30226 DATA255 , 1 93 , 227 , 243 , 243 , 1 79 , 1 47 , 1 99 

30227 DATA255, 16, 153, 147, 199, 147, 153,24 

30228 DATA255,31,159,159,159,159,145,7 

30229 DATA255,28, 136, 128, 148, 156, 156,28 

30230 DATA255,25,137,137,129,145,145,25sREMN 

30231 DATA255, 195, 153,60,60,60, 153, 195 

30232 DATA255,3, 153, 153, 131 , 159, 159,31 

30233 DATA255, 195, 153, 153, 153, 153, 195,241 

30234 DATA255,3, 153, 153, 131 , 147, 153,25 

30235 DATA255, 195, 153, 143,227 ,57, 153, 195 

30236 DATA255, 1 , 101 ,231 ,231 ,231 ,231 , 199 

30237 DATA255,28, 153, 153, 153, 153, 153, 192 

30238 DATA255,24, 153, 153, 153, 153, 195,231 

30239 DATA255,2B, 156, 156, 148, 128, 136,28 

30240 DATA255,2B, 153, 195, 131 , 195, 153,56 

30241 DATA255,24, 153, 153, 195,231 ,231 , 199 

30242 DATA255, 193, 153, 243, 231, 207, 189, 129 

30243 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

30244 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

30245 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

30246 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

30247 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 
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Explanation 

Line 5 : Go into upper case/lower case mode, and off to the routine 
at 10000 to print up some on-screen instructions. 

Line 10 : disable interrupts while we change everything. 

Line 20 : switch out input/output ROM. 

Line 60 : read in character data. 

Line 70 : poke it all into place. 

Line 80 : next step around the loop. 

Line 90 : replace input/output ROM. 

Line 100 : re-enable interrupts. 

Lines 110-130 : set pointers for video chip to access new character 
base and video RAM location. 

Lines 140-160 : just a demonstration. 

Lines 10000-10018 : and some instructions. 

Lines 30001-30247 : the data! 
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10 
A Synthesiser 



We've already seen how sophisticated the 64 can be, so it's about 
time we put some of that sophistication to the test. 

this program uses all three voices, with voices two and three providing 
background rhythms using a method to be outlined in Chapter 13. 
What may be of interest is how those background rhythms can be 
used to simulate various musical instruments, and some possible 
settings for attack/decay and sustain/release are given below in order 
for you to be able to do precisely that. 



Possible settings for musical instruments 



Instrument 


Att/Dec 


Sus/Rel 


Waveform 


Pulse 


Piano 


9 





Pulse 


Lo = 255 


Harpsichord 


9 





Sawtooth 


- 


Trumpet 


96 





Sawtooth 


- 


Flute 


96 





Triangle 


- 


Xylophone 


9 





Triangle 


- 


Organ 


9 





Triangle 


- 


Accordion 


102 


240 


Triangle 


- 



The program 

This is a variation on a popular program, which goes a lot further than 
anything we've attempted to do so far. This program gives you most 
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of the power of a full synthesiser, including the capability to define 
any voice to 'perform' as you would like it to; set up and change 
background rhythms; have glissando effects; change the filtering 
parameters, and so on. In short, just about everything is included here. 



1 PRINT" CCLR3":IFPEEK (49219) O65THENL0AD "BOOGIETI 
ME" ,B.l 

2 GOSUB4000 : PR I NTCHR* ( 8 > 
5 V=54272sV0(0)=l:0C=4 
15 B0SUB595 

18 G0SUB800 

20 GDSUB505 

21 SYS 49152 

25 GETKY* s I FKY*= " " THEN25 

26 K=PEEK < 1 97 ) ; PS=PEEK < 653 > 

27 I FK=57THENF0R I =0T024 : POKEV+ 1 . 5 NE XT s PR I NT " C CLR . 
2CD3BYE.":END 

28 IFK=48THEN5000 

30 1FK=40THEN1999 

31 IFK=4THEN6000 
35 IFK=43THEN999 
60 IF K=l THEN250 

65 IFK=46THEN0C=0C/2: IFOCX 1THEN0C=1 

67 IFK=35THENP0KEV+24,0:G0T025 

70 IFK=54THEN0C=0C*2: IFOC>64THEN0C=64 

75 IFK=49THENGL=1-GL 

80 IFK=53THENGR=GR+ls IFGR>8THENGR=0 

90 F»N < K ) : LK=K : LS=PS 

95 IF F=0 THEN 25 

100 IF (F>0ANDF<9)THEN 225 

105 F=F»(4/0C) 

110 IFGLANDBR>0ANDZOFTHEN455 

120 IF PS=1 THEN F=INT <F*2 A ( 1/ 12) ) 

130 Fl=INT(F/256) 

135 F2=F-F 1*256 

136 POKEV+24.15 
140 REM 

150 POKE V+4.0 

155 POKE V+4,W(0)*16+RM(0)*2+SY(0)*4+1 

165 POKE V,F2 

170 IFF1>255THEN1B5 

175 POKE V+1,F1 

185 Z=F 

190 GOTO 25 

195 FOR 1=0 TO 2 

200 POKE V+ 1*7,0 

205 POKE V+ 1*7+ 1.0 

210 POKE V+I*7+4,W(I)*16 
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215 NEXT I 

220 B0T0 25 

225 F=F-1 

230 FDR 1=0 TO 2 

235 V0(I)=<FAND2 A I)/2~I 

240 NEXT I 

24 1 I FF= 1 THENP0KE492 19.0s P0KE5 1 267 . : GQT0245 

242 I FF= 1 0RF=2THENP0KE492 1 9,0: POKES 1 267 , W < 1 ) * 1 6+ 1 + 
RM ( 1 ) »4+SY < 1 ) *2s GDT0245 

243 I FF=OQRF= 1 0RF=30RF=4THENP0KE5 1 267 . s P0KE492 1 9 , 
W (2) *16+1+RM (2) *4+SY (2) *2s G0T0245 

244 P0KE49219, W <2) *16+1+RM (2) *4+SY (2) *2s P0KE51267 , 
W < 1 > * 16+ 1+RM ( 1 ) *4+SY ( 1 ) *2 

245 GOTO 25 

250 P0KE53260„9:P0KE53281.7 

255 PRINT "CCLR,BLK3 l/OICE 1 VOICE 2 

l/OICE 3" 
260 F0RI=1T010:GETKY*:NEXT 

265 PRINT "[CD3«AVEF0RM"!TAB(12)!W*(0)!TAB(22) :W*( 
1):TAB(32) sW*(2) 

270 PRINT "4TT/DEC"sTAB(13)!AD(0):TAB(23);AD(l):TA 
B(32):AD(2) 

275 PRINT ,, SUS/flEL ,, :TAB(13):SR(0>sTAB(23>;SR(l>sTA 
B(32):SR(2) 

280 PRINT "PULSE HI " : TAB ( 13) : PH <0> : TAB (23) s PH ( 1 ) ; T 
AB(32):PH(2) 

285 PRINT "PULSE 10" s TAB (13) :PL (0) : TAB (23) :PL ( 1 ) 5 T 
AB(32):PL(2) 

290 PRINT "flING MOD" s TAB ( 13) sRM (O) : TAB (23) s RM ( 1 ) ! T 
AB(32):RM(2) 

295 PRINT "SYNC " : TAB (13) s SY (0) s TAB(23) : SY ( 1 ) 8 T 
AB(32):SY(2) 

300 PRINT" [CD 3 DO YOU WANT TO CHANGE ANY VALUES (YV 
W)?" 

305 6ETCH* : I FCH*= " N " THENP0KE532B0 , s P0KE532B 1 , : GO 
T020 

310 I FCH*< > " Y " THEN305 

315 PRINT" CCD3MHICH VOICE (1, 2 OR 3)?" 
320 GETVC* s I FVC*= " " THEN320 

325 IFVC*="1"THENPRINT" l/OICE 1":VC=0:G0T0 345 
330 IFVC*="2"THENPRINT"I/0ICE 2" s VC=1 sGOTO 345 
335 IFVC*="3"THENPRINT"I/0ICE 3":VC=2:G0T0 345 
340 GOTO 320 

345 PRINT "C CD 3 WAVEFORM (T, S, f> , OR N)?" 
350 GETWF*:IFWF*=""THEN 350 

355 IFWF*="T"THENPRINT" TRIANGLE" s W (VC) =1 s W* (VC) ="T 
RIANGLE"!GOTO 380 

360 I FWF*= " S " THENPR I NT " SAWTOOTH " : W ( VC ) =2 : W* ( VC > = " S 
AWTOOTH":GOTO 380 

365 I F WF*= " P " THENPR INT" PULSE " : W ( VC ) =4 s W* ( VC ) = " PULS 
E"s60T0 3B0 
370 IFWF*="N"THENPRINT"WOISE" s W (VC) =8s W* (VC) ="NOIS 
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E":BOTD 380 

375 SOTO 350 

380 INPUT "/ITTACK/DECAY"sAD<VC>:IFAD<VC)<OORAD<VC> 

>255THENPRINT"[2CU3":S0T0 380 

385 INPUT "SUSTAIN/flELEASE"!SR<VC):IFSR<VCXOORSR( 

VC) >255THENPRINT" C2CU3 " : G0T0385 

390 I NPUT "PULSE H I" : PH ( VC ) s I FPH ( VC )< OORPH ( VC > >255 

THENPRINT"C2CU3":SOTO 390 

395 INPUT "PULSE U ":PL (VC) s I FPL <VCK00RPL<VC) >255 

THENPRINT"C2CU3":SOTO 395 

400 INPUT "PINS «OD"sRM<VC>sIFRM<VCKOORRM<VC)>lTH 

ENPR I NT " E 2CU 1 " s GOTO 400 

405 INPUT "SYNC":SY(VC):IFSY<VCK00RSY<VC>>1THENPR 
INT" C2CU3"! SOTO 405 

406 I F VC=2THENP0KE492 1 9 , W < VC ) * 1 6+ 1 +SY ( VC > *2+RM ( VC ) 
*4 

407 IFVC=iTHENP0KE51267.W<VC>*16+l+SY<VC)*2+RM(VC> 
#4 

410 SOTO 250 

420 F0RI-0T02 

425 IFV0<I)=0THEN435 

430 P0KEV+I*7+4,W<I>*16+2 

435 NEXT I 

440 I FPEEK < 1 97 > -64THEN420 

445 S0T025 

450 W (O) =1 i P0KEV+4,W (0) *16+5: V<2) =1 : B0T025 

455 IFZ>FTHENFR=-1:G0T0465 

460 FR=1 

465 F0RI=ZT0FSTEPFR*SR*64 

470 F1=INT< 1/256) 

475 F2-I-F1*256 

480 IFRM=lTHENP0KEV+4,W<0)*16+5 

485 POKE V.F2 

490 I FF 1 >2550RF 1 < 0THEN500 

495 POKE V+1.F1 

500 NEXTIiZ-Xc SOTO 130 

505 POKE 53280,0: POKE 5328 1.0s POKE 53272.23 

510 PRINT"CYEL f CLR,RVS3********* 64 SYNTHESISER 

********* t OFF 1 " 
515 PRINT" CRVS.CU 3 ********** BY SID ** 
********" 

520 PRINT" PLAY USINB THE KEYS CRVS3 Q W E R T Y U 
I 

521 PRINT" CRVS3 



525 

K 
526 

530 



PRINT" CRVS3 A S D F 6 H J 

PRINT" CRVS3 

PRINT" CRVS3 Z X C V B N M 



531 PRINT" CRVS3 
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CCU3 " s IFPP=1THENPP=0: RETURN 
532 Z Z= 1 : I FZ Z= 1 THENB0SUB805 
585 G0SUB690 
590 RETURN 
595 DIM N<64) 
600 FOR 1=0 TO 64 
605 READ A 
610 N<I)=A 
615 NEXT I 

620 DATA .-1.0,0.0,0.0.0 
625 DATA 4,9854,4389.5,2195,4927 
630 DATA 11060,0.6,11718.5530.7.2765,5859 
635 DATA 13153,2463,8,14764,6577,0,3288.7382 
640 DATA 16572,2930.0.17557,8286,1,4143,8779 
645 DATA 0,3691,0,0,0,0,0,0,0,4389,0.0.0 
650 DATA 0,0,0,0,0,2,0.0,3,0 
655 DATA 0,8779,0,0 
660 FOR 1=0 TO 2 

665 READ W < I > . AD (I ) ,SR ( I ) .PH ( I ) .PL( I ) . W# ( I ) .RM ( I ) . 
SYU) 
670 NEXT 

675 DATA 2 , 102, 108,0.0, "SAWTOOTH" .0.0 
680 DATA 4,9.0,0,255,"PULSE".0,0 
685 DATA 4.9,0,0,255, "PULSE" .0.0 
690 F0RI=0T02 

695 POKE V+7*I+4.WU>+RM(I)*2+SY(I>#4 
700 POKE V+7*I+5,AD(I):P0KE V+7*I+6.SR (I ) :POKE V+7 
*I+3,PH(I) :POKE V+7*I+2,PL ( I ) 
705 NEXT 

710 POKE V+24,15 
712 P0KE49219.W(2)*16+RM(2>*4+SY<2>*2+1 

714 P0KE51267,W(1)*16+RMU)*4+SY(1>*2+1 

715 RETURN 

800 P0KE53280 , s P0KE5328 1.0: P0KE53272 . 23 : PR I NT " C CL 
R,YEL 1 WELCOME TO 64-SYNTH" 

802 PRINT"C2CDJPLAY USING THE KEYBOARD AS SHOWN ON 
THE DIAGRAM COMING UP SOON." 

804 PRINT" C CD 3 JUST A FEW THINGS TO REMEMBER." 

805 PR I NT "C CD 30) PRESS ' \ ' TO START RHYTHMS TOGETH 
ER." 

PRESS SHIFT FOR A SHARP." 
PRESS RETURN TO ALTER VOICES." 
PRESS '*' FOR GLISSANDO (VOICED 
PRESS '=' TO ALTER GLISSANDO RATE." 
PRESS 'S* TO GO UP AN OCTAVE." 
PRESS "*' TO GO DOWN AN OCTAVE." 
PRESS ' ' TO EXIT." 
PRESS '0' TO CANCEL ALL VOICES." 



806 PRINT" 1) 
808 PRINT"2) 
810 PRINT"3) 
812 PRINT"4) 

814 PRINT"5) 

815 PRINT"6) 

816 PRINT"7) 

817 PRINT"8) 

818 PRINT"9) 

819 PRINT" 10) 

820 PRINT" 11) 
12) PRESS 'PI 



PRESS 0-7 TO SWITCH ON/OFF VOICES." 
PRESS '+' TO ALTER RHYTHM 1. 
PRESS '-' TO ALTER RHYTHM 2. "-.PRINT" 
FOR FILTER." 
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821 I FZZ=1THENZZ=0: RETURN 

822 GQSUB870 

825 PRINT" CCLR 3 I/O ICES ARE ALTERED ON A BINARY BASI 
S THUS * " 

826 PR I NT "C CD 3 PRESS I N6 1 TURNS ON VOICE 1." 
828 PR I NT " C CD 3 PRESS INS 2 TURNS ON VOICE 2." 

830 PRINT" C CD 3 PRESS INS 3 TURNS ON VOICES 1 & 2. " 

831 PRINT" C CD 3 PRESS INS 4 TURNS ON VOICE 3." 

832 PRINT" CCD3PRESSINB 5 TURNS ON VOICES 1 & 3. " 
834 PRINT" tCD3PRESSINB 6 TURNS ON VOICES 2 & 3. " 
836 PRINT" CCD3PRESSINB 7 TURNS ON VOICES 1. 2 & 3. 

It 

838 60SUB870 

840 PRINT" CCLR 3 BEST EFFECTS ARE OBTAINED WHEN YOU 

ALTER THE RINB MODULATION ": 
842 PR I NT "AND SYNCHRON- I SAT I ON FOR EACH VOICE." 
844 PRINT"C2CD3KHEN ALTERING THESE, JUST ENTER 
R 1 TO TURN THESE FEATURES OFF ": 
846 PR I NT "OR ON FOR EACH VOICE." 
848 PRINT"C2CD37HE REST IS UP TO YOU!" 
870 PRINT": CD 3 PRESS SPACE WHEN READY." 
872 GETCO*:IFC0*<>" "THENB72 
874 RETURN 

999 P0KE4921 9 . 0: P0KE51 267 . W ( 1 ) *1 6+RM ( 1 ) *4+SY ( 1 > *2+ 
lsSYS49171 

1000 PP=1:G0SUB505:D=0 

1001 S0SUB3000 

1 005 BETA* : I FA*= " " THEN 1 005 

1 006 K=PEEK ( 1 97 ) : PS=PEEK ( 653 ) 

1 007 I FK= 1 ANDD >2THENB0SUB505 : POKES 1 379+D . 255 : POKES 
1 380+D, 255 :G0T020 

1008 IFK=1THEN1005 

1 009 I FK=60THENP0KE5 1 379+D . 00 : P0KE5 1 380+D . 00 : BOTO 1 
122 

1010 IFK=46THEN0C=0C/2: IFOC<lTHENOC=l 

1011 IFK=0THEN20 

1013 1 FK=57THEND=D-2 : I FD< 0THEND=0 

1015 I FK=4THENSYS49 152 s GOTO 1006 

1016 IFK=5THENSYS49171s GOTO 1006 

1017 IFK=6THEND=0:G0T01006 

1020 IFK=54THEN0C=0C*2: IF0O64THEN0C=64 

1 030 F=N < K > : LK=K s LS=PS 

1035 IFF=0THEN1005 

1040 F=F*(4/0C> 

1050 IF PS=1 THEN F=INT <F*2~ ( 1/12) ) 

1060 Fl=INT(F/256) 

1070 F2=F-F 1*256 

1075 POKEV+11,0 

1090 POKE V+7,F2: P0KE51 380+D. F2 

1100 IFF1>255THEN1120 

1110 POKE V+8.FlsP0KE51379+D.Fl 

1111 POKEV+1 1 , W ( 1 ) *16+1+RM ( 1 ) *4+SY < 1 > *2 
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1 1 20 I FD >900THENK= 1 s SOTO 1 008 

1122 P0KE5 1 382+D . 255 : P0KE5 1 38 1 +D . 255 

1125 D=D+2: SOTO 1005 

1999 P0KE51267 ,0: P0KE49219 . W (2) *16+RM (2> *4+SY (2) *2 
+1:SYS49171 

2000 PP=1:G0SUB505:D=0 

2001 G0SUB3000 

2005 GETA* : I F A*= " " THEN2005 

2006 K=PEEK ( 1 97 ) : PS=PEEK < 653 ) 

2007 I FK= 1 ANDD >2THENP0KE4933 1 +D , 255 : P0KE49332+D . 25 
5:G0T020 

2008 IFK-1THEN2005 

2009 I FK=60THENP0KE4933 1 +D , 00 : P0KE49332+D . 00 : G0T02 
122 

2010 IFK=46THEN0C=0C/2: IFOC< 1THEN0C=1 

2011 IFK-0THEN20 

20 1 3 I FK=57THEND=D-2 : 1 FD< OTHEND*0 

20 1 5 I FK-4THENSYS49 1 52 I S0T02006 

2016 IFK»5THENSYS49171:B0T02006 

20 1 7 I FK-6THEND-0 : G0T02006 

2020 IFK«54THEN0C=0C#2: IF0O64THEN0C=64 

2030 F»N<K):LK«K«LS-PS 

2035 IFF-0THEN2005 

2040 F=F*<4/0C> 

2050 IF PS=1 THEN F-INT <F*2 rt < 1/ 12> > 

2060 Fl=INT(F/256> 

2070 F2-F-F 1*256 

2075 POKEV+18,0 

2090 POKE V+14.F2iP0KE49332+D,F2 

2100 IFF1>255THEN2120 

2110 POKE V+15,F1»P0KE49331+D,F1 

21 1 1 POKEV+18, W <2> *16+1+RM (2) *4+SY (2) *2 
2 1 20 I FD >900THENK= 1 s G0T02008 

2 1 22 P0KE49334+D , 255 ; P0KE49333+D , 255 

2125 D=D+2:G0T02005 

3000 PRINT"CRVS.PUR,2CD3 , S/'4CC'COFF3 TO INTRODUCE 

A PAUSE • 

3002 PRINT"[:RVS3'/?£TU/Wr C0FF3 TO RETURN TO MAIN ME 
NU. 

3003 PRINT" CRVS3 'F1'C0FF3 TO PLAY TUNE. ": PRINT" CRV 
S3'F3'COFF3 TO CANCEL IT." 

3004 PRINT" CRVSD'e'COFF] TO 80 UP AN OCTAVE. 

3005 PRINT"CRVS3 'C0FF3 TO GO BftCK A NOTE. " sPRINT" 
CRVS3'F5'COFF3 TO GO BACK TO START." 

3006 PRINT"CRVS3* A 'COFF3 TO GO DOWN AN OCTAVE. 

3007 PRINT" CRVS3'J«ST/D£i.C0FFa TO QUIT." 

3008 PRINT" Z CD 3 A MAXIMUM OF 90O NOTES ALLOWED." 
3010 RETURN 

4000 S=54272 : POKES+ 1 7 , 255 : POKES+ 19,9: POKES+20 , 
40 1 POKES+24 ,15: P0KE492 16,10: P0KE492 18,0: P0KE492 1 
9 , 65 : P0KE25 1 , 1 78 : P0KE252 , 1 92 
4020 P0KE253 ,178: P0KE254 . 1 92 
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4030 P0KES+ 1 . 255 : P0KES+ 12.9: POKES+ 13,0 

4040 POKES 1 264 ,10: P0KE5 1 266 , : P0KE5 1 267 . 65 : P0KE247 

,17B:P0KE248,200 

4050 P0KE249, 178: P0KE250. 200: RETURN 

5000 P0KE25 1.178: P0KE252 , 1 92 : POKE253 , 1 78 : P0KE254 . 1 

92 

5002 P0KE247 , 1 78 : P0KE248 . 200 : PDKE2 49 . 1 78 : P0KE250 . 2 

00 

5004 G0TD25 

6000 P0KE5328 1,7: P0KE53280 . 9 : PR I NT " C CLR . BLK 3 F I LTER 

INS ALTERATION 

6002 PRINT" CCD3'F1' - LOW VALUE OF FREQUENCY CUT-0 

FF." 

6004 PRINT"'F3- - HIBH VALUE OF FREQUENCY CUT-OFF. 

II 

6006 PRINT"' F5' - SIGNAL ROUTED THROUBH FILTER." 

600B PRINT" 'F7* - RESONANCE OF FILTER." 

6010 PRINT" 'F2- - FILTER MODE." 

6015 PRINT"' ! ' - EXIT." 

6020 PRINT"C2CD3tOW l/ALUE HIBH l/ALUE FREQUENCY CU 

T-OFF 

6022 PRINT"C4CD3SI6NAL RESONANCE WODE" 

6027 C=A*256+B : C= ( 30+C*5 . 8 ) 

602B PRINT"CH0ME.11CD.3CL3 ,, :A:" ":B: " 

" :C: "HZ 
6030* PRINT" C4CD.CL3":AA:" ":E:" ":FF 

6040 BETA*:IFA#=""THEN6040 

604 1 I FA*= " C F 1 3 " THENB-B+ 1 : I FB >255THENB=0 

6042 I FA*= " C F3 3 " THENA-A+ 1 : I FA >7THENA«0 
6044 I F A*= " C F5 3 " THENAA-AA+ 1 : 1 F AA > 1 5THENAA=0 
6046 I FA*- " C F7 3 " THENE-E+ 1 : I FE > 1 5THENE=0 
6048 IFA*="CF23"THENFF=FF+1: IFFF>15THENFF=0 

6050 POKEV+22 , A : POKEV+2 1 , B : POKEV+23 . AA+E* 1 6 : POKEV+ 

24,15+FF*16 

6056 IFA*=" ! "THEN20 

6058 G0T06000 



Explanation 

Line 1 : If you haven't got a background rhythm in, load one in from 
disk (this boogie rhythm is to be found in Chapter 13). To load from 
tape, change the number eight to a one. 

Line 2 : GOSUB 4000 to set up the background rhythm voice driver, 
and then disable the action of the shift and CBM logo keys. 

Line 5 : declare variable V, and turn voice 1 on (all voices are referenced 
as VO), as well as setting the octave number. 
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Line 15 : go to subroutine to read all the musical data in. 

Line 18 : go to the routine to print some on-screen instructions. 

Line 20 : go to subroutine to print on-screen instructions and keyboard. 

Line 21 : start the machine code interrupt-driven background voices 
going. 

Line 25 : check for key press. 

Line 26 : store the value for the key pressed, and any 
shift/ CTRL/CBM logo keys. 

Line 27 : if the left arrow key is pressed, then it's bye-bye program. 

Line 28 : if the pound sign is pressed, turn off background rhythms. 

Line 30 : if ' + ' key pressed, then go to routine to alter background 
rhythm for voice 3. 

Line 31 : if F1 pressed, then go to routine to alter frequency cut-off 
etc. parameters. 

Line 35 : if '-' key pressed, then go to routine to alter background 
rhythm for voice 2. 

Line 60 : if RETURN key pressed, then go to routine to alter settings 
for all three voices. 

Line 65 : if '@' pressed, then step down an octave 

Line 67 : if '0' pressed, then turn off all voices. 

Line 70 : if up arrow pressed, then step up an octave. 

Line 75 : if '*' pressed, then toggle fake glissando mode. 

Line 80 : if ' = ' pressed, then increase fake glissando speed. 

Line 90 : get frequency relating to key pressed. 

Line 95 : if no note then loop back again. 

Line 100 : if numeric key pressed, then 225. 
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Line 105 : adjust frequency if necessary. 

Line 110 : check for fake glissando. 

Lines 120: if shift pressed, adjust frequency accordingly. 

Lines 130-135 : calculate frequency. 

Lines 140-175 : play note for relevant voices. 

Line 185 : remember old frequency. 

Line 190 : back for more. 

Lines 195-215 : turn voices off. 

Lines 225-240 : turn on/off relevant voices. 

Lines 241 -245 : remembering to turn on/off voices 2 and 3 via machine 
code program. 

Lines 250-300 : on-screen display for altering voices. 

Lines 315-340 : which voice. 

Lines 345-375 : to which waveform. 

Lines 380-410 : rest of alterations. 

Lines 420-445 : turn on ring modulation. 

Lines 450-500 : fake glissando effect. 

Lines 505-590 : on-screen instructions. 

Lines 595-715 : data and set-up voices. 

Lines 800-874 : prelude to main program. Strange symbol in line 805 
is the pound sign. 

Lines 999-1125 : alter background rhythm for voice 2. 

Lines 1999-2125 : and ditto for voice 3. 

Lines 3000-3010 : Options when changing the background rhythms. 
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Lines 4000-4050 : driver program for background rhythms. 

Lines 5000-5004 : re-set background rhythms to start at same time. 

Lines 6000-6022 : options available when playing about with 
frequencies. 

Lines 6027-6058 : altering frequency parameters. 

Notes 

As usual, the up-arrow key causes us problems in a few places, notably 
lines 120, 235 and 815. 

The letters in italics are only so because the program has been written 
in lower case mode, and should be entered as shifted letters when 
you type the program in. 

There are no graphics characters used, so there shouldn't be any great 
problems in deciphering the rest of the listing. 

Of course, it isn't a Fairchild, but it does introduce some of the concepts 
involved in writing one (which should really be done totally in machine 
code), and that is why it is here. 



103 



11 

Generating Sound Effects 

Introduction 

The simplest way of generating sound effects is to play about with 
pulse widths and filtering techniques, or to use the noise waveform 
and keep changing frequencies. Some of the machine code programs 
towards the end of this book will make life a lot easier in that respect, 
so by experimenting with them you'll be able to make a whole host 
of peculiar noises. One other popular method is to play a rapidly rising 
and falling note, like this: 

18 U=54272 

20 POKEv+5,9:POKEv+6,0 

30 PuKEv+3,0=POKEV+2,255:POKEV+4,0 

40 PQKEV+24,15 

50 FORI=1TO100 

60 POKEv+4,0:POKEv+4,65 

70 POKEv+1,1 

80 NEXT 

90 FORI=100TO0STEP-1 

100 PuKEV+4,0=POKEV+4,65 

110 POKEV+1,1 

120 NEXT 

which, although it looks cumbersome, produces a sound rather like 
a police siren. 

Using the synthesiser program in the last chapter, you can also alter 
the ring modulation and synchronisation settings for the various voices, 
and this can produce some very good effects. By setting one of the 
background rhythms to play a simple, repetitive tune (perhaps the 
theme from Close Encounters, or the riff that repeats itself over and 
over again in Tubular Bells) and synchronising that riff with voice 1, 
a melody can be picked out with voice 1 and the background rhythm 
will move up and down the scale accordingly. 
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Explosions are easy enough to produce just by using the noise 
waveform, which is really quite a handy one in the special effects 
department. 

To go back to purer notes for a while, the following two programs 
are, respectively, a program to test your scale playing, and a simple 
reaction timer that shows you a musical note on a keyboard which 
you have then to play on the keyboard as soon as possible. 

Scale practice 

This doesn't use the keyboard that we've been used to in such games 
as Musical Simon and the like, since the scales cover a good many 
octaves. Far too many, in fact, to represent in the usual way. So the 
keyboard for this one is much the same as the one used in the 
synthesiser program. 

The program will tell you which scale it is going to play, play it, and 
then you have to repeat the same scale. Six scales are built into it, 
although others could be added if necessary. If you get the scale 
perfectly right, the program moves onto the next one, but get it wrong 
and you have to repeat the same one all over again. 



5 PRINTCHR*<8> sDIMAN<30,2> .C(30,2) .6(30,2) 

6 DIMD(30,2) ,A(30,2) ,E<30,2) ,B<30,2) 

10 P0KE532B1 , 5i P0KE532B0 , 1 I P0KE33272 , 23i PRINT" CCLR 
, BLK 3 SCALE PRACT I CE . " I B0SUB595 

11 SC-liG0SUB4000 

12 PRINT"C2CD3I WILL PLAY THE FIRST 6 MAJOR SCALES 
, AND YOU WILL HAVE TO REPEAT ": 

14 PR INT "THOSE SCALES USING THE KEYS BELOW s " 

16 PRINT" C2CD,WHT3 CRVS3Q « E R T Y 

U I 

18 PRINT" CRVSIM S D F G H J K 

20 PRINT" CRVS3Z X C V B N M , 

22 PRINT" C2CD,BLK 3 HERE THE 'A' KEY REPRESENTS THE 

KEY CjTOOBTAIN A SHARP, PRESS "j 

24 PR I NT "THE SHIFT KEY IN CONJUNCTION WITH AN ALP 

HABET I C KEY AND FOR A " t 

26 PRINT"FLAT PRESS THE CBtf LOGO KEY IN CONJUNC 

TION WITH AN ALPHABETIC KEY. 

30 PRINT" C CD 1 TRY USING THE KEYBOARD NOW, JUST TO G 

ET THE FEEL OF IT, AND WHEN "s 

32 PRINT" YOU'RE READY TOQUIT, PRESS ' '." 

33 G0SUB1000iG0T020000 

34 PRINT" CCLR,BLK 3 SCALE PRACTICE i C WAJOR. " 
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35 F0RI = lT029!P0KES+4,0:P0KES+l.CU,l>:PaKES,C<I.2 
):P0KES+4.65:F0RJ=1T0150:NEXTJ.I 

36 RETURN 
38 PRINT" C2CD.WHT3 
U 1 
40 PRINT" CRVS34 

42 PRINT" CRVS32 

43 PRINT"C2CD,BLK3MOW IT'S YOUR TURN: REPEAT THE S 
CALE. " 

44 BETA*:IFA*=""THEN44 

46 K=PEEK < 1 97 ) s PS-PEEK ( 653 ) 

50 IF K=LK AND PS-LS THEN 46 

52 F«N < K ) x LK=K : LS=PS 

54 IF F==0 THEN 46 

56 IF F>65535 THEN 46 

58 IF PS-1 THEN F=INT CF*2~ ( 1/12) ) 

60 IF PS=2 THEN F=INT <F/2^ ( 1/ 12) ) 

62 Fl=INT(F/256) 

64 F2=F-F 1*256 

66 POKE S+4,0 

68 POKE S.F2 

70 POKE S+1,F1 

72 POKE S+4,65 

73 AN(A+1.1)=F1:AN(A+1,2)-F2 

74 A=A+liIFA-29THENRETURN 

75 S0T044 

100 A»0:F0RI=1T029 

110 IFAN<I,l)OC(I.l)THENQ=Q+l 

115 IFAN(I,2)OC<I.2)THENQ=Q+l 

120 NEXT 

130 IFQ>OTHENPRINT"C2CD3MRONS! ": F0RI=lT02000:NEXTs 

Q=0: RETURN 

1 40 PR I NT " C 2CD 3 CORRECT ! " : Q=0 : SC=SC+ 1 s FOR I = 1 T02000 : 

NEXT: RETURN 

150 A-0:F0RI=1T029 

152 IFAN(I,l)OB(I,l)THENQ*Q+l 

155 IFAN(I,2)OQ(I,2)THENQ-Q+l 

156 NEXT 

157 IFQ>OTHENPRINT"C2CD3«RON0! ": FORI =1T02000: NEXT: 

Q=0: RETURN 

1 58 PR I NT " C 2CD 3 CORRECT ! " : Q=0 : SC=SC+ 1 : FOR 1 = 1 T02000 : 
NEXT: RETURN 

160 A-0iF0RI«lT029 

162 IFAN<I,lX>D(I,l)THENQ-0+l 

165 IFAN(I.2)OD(I,2)THENQ»D+l 

166 NEXT 

167 IFG»0THENPRINT"C2CD3WR0NB! "sF0RI«lT02000:NEXTs 

Q=0: RETURN 

1 68 PR I NT " C 2CD 3 CORRECT ! " : Q-0 : SC-SC+ 1 s FOR I - 1 T02000 1 
NEXT: RETURN 

170 A-0:F0RI-1T029 

172 IFAN<I,1K>A<I,1)THENQ«Q+1 
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175 IFAN<I,2>OA<I,2)THENQ=Q+l 

176 NEXT 

177 IFQ>OTHENPRINT"E2CD3WRONB! ' , sF0RI = lT02000:NEXT: 

Q=0: RETURN 

1 78 PR I NT " C 2CD 3 CORRECT ! " : Q=0 : SC=SC+ 1 s FOR 1 = 1 T02000 : 
NEXT: RETURN 

180 A=0:F0RI=1T029 

182 IFAN(I.l)OE<I,l)THENQ=Q+l 

185 IFAN(I,2)OE(I,2>THENQ=Q+l 

186 NEXT 

187 IFQ>0THENPRINT"C2CD3«R0N6! "i F0RI=1T02000:NEXT: 

Q=0: RETURN 

1 88 PR I NT " C 2CD 3 CORRECT ! " s Q=0 : SC=SC+ 1 : FOR 1 = 1 T02000 s 
NEXT: RETURN 

190 A=0sF0RI=lTD29 

192 IFAN<I.1K>B<I,1)THENQ=Q+1 

195 IFAN(I,2)OB(I,2)THENQ=Q+l 

196 NEXT 

197 IFQ>OTHENPRINT"C2CD3WRONS! ": FOR I=1T02000: NEXT: 

Q=0: RETURN 

198 PR I NT " C 2CD 3 CORRECT ! " : 0=0 8 SC=SC+ 1 s FOR I - 1 T02000 : 
NEXT: RETURN 

200 PRINT" CCLR.BLK 3 SCALE PRACTICE I Q HAJOR. " 

202 F0RI=1T029:P0KES+4,0:P0KES+1 ,B( I . 1 ) : POKES, G< I , 

2)s POKES+4 , 65s F0RJ=lT0150s NEXTJ , I 

204 RETURN , m „ 

210 PRINT" CCLR,BLK 3 SCALE PRACTICE t D MAJOR." 

212 F0RI-lT029sP0KES+4,0sP0KES+i,D<I, 1 > :POKES,D< I . 

2)sP0KES+4,65:F0RJ=lT0150sNEXTJ,I 

214 RETURN 

220 PRINT" CCLR.BLK 3 SCALE PRACTICE I A MAJOR. " 

222 FORI=lT0298POKES+4,OsPOKES+l,A<I,l)8POKES,A<I, 

2)sP0KES+4,65sF0RJ=1T0150iNEXTJ,I 

224 RETURN 

230 PRINT" CCLR,BLK3SCALE PRACTICE I E MAJOR. " 

232 F0RI=1T029iP0KES+4,0iP0KES+1,E<I,1):P0KES,E<I, 

2) : POKES+4 ,65s F0RJ-1T0150: NEXTJ , I 

234 RETURN 

240 PRINT" CCLR,BLK 3 SCALE PRACTICE s B MAJOR." 

242 F0RI-lT029iP0KES+4,08P0KES+l,B<I,l)sP0KES,BU, 

2>:P0KE8+4,65sF0RJ-lT01508NEXTJ,I 

244 RETURN 

450 PR I NT "CCLR 3 THAT'S THE LOT ! "8PRINT"C2CD34NOTHER 

BO <y OR W>?" 
452 F0RI-lT010sSETZ*8NEXT 
454 BETZ*I IFZ*="Y"THENRUN 
456 IFZ*-"N"THEN20006 
458 G0T0454 
595 DIM N(64) 
600 FOR 1-0 TO 64 

605 READ AsN(I)-AiNEXT 

606 S-54272 s POKES+3 . s POKES+2 , 255 8 POKES+5 , 9 « POKES+ 
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6,0:P0KES+24,15sP0KES+4,65 

610 RETURN 

620 DATA ,0,0,0,0,0,0.0 

625 DATA 4,9854,4389,5.2195,4927 

630 DATA 11060,0,6,11718,5530,7.2765,5859 

635 DATA 13153,2463,8.14764,6577.0,3288.7382 

640 DATA 16572,2930,0,17557,8286,1,4143,8779 

645 DATA 0,3691,0,0,0,0,0.0,0,4389.0.0.0 

650 DATA 0,0,0,0,0,2,0,0,3.0 

655 DATA 0,8779.0,0 

1 000 K-PEEK ( 1 97 >: PS-PEEK ( 653 > 

1005 IFK=57THEN RETURN 

1010 IF K=LK AND PS-LS THEN 1000 

1 020 F=N < K > : LK=K : LS=PS 

1030 IF F-0 THEN 1000 

1040 IF F>65535 THEN 1000 

1050 IF PS=1 THEN F=INT <F*2 A ( 1/12) ) 

1060 IF PS=2 THEN F=INT <F/2 A ( 1/12) ) 

1070 Fl=INT<F/256> 

1080 F2=F-F 1*256 

1090 POKE S+4,0 

1110 POKE S.F2 

1120 POKE S+1.F1 

1122 POKE S+4,65 

1125 SOTO 1000 

4000 DATA8. 147, 9 ,159,10,205.11.114,12.216.14.107.1 

6,47,17,37,19,63,21.154 

4002 DATA22.227.25, 177.28,214.32,94.34. 75 

4004 DATA32, 94, 28, 214, 25, 177, 22, 227, 21, 154. 19, 63.1 

7,37,16,47,14,107.12,216 

4006 DATA11 , 1 14, 10,205,9, 159,8, 147 

4008 FORI -1T029: READ X , Y: C < 1 , 1 ) -X : C < 1 . 2) =Yi NEXT 

4010 DATA12, 216, 14, 107, 16, 47, 17, 37, 19. 63, 21, 154. 22 

,227,25,177,28.214,32,94 

4012 DATA34, 75, 38, 126, 43, 52, 48, 126, 51. 97 

4014 DATA48, 126, 43, 52. 38, 126, 34, 75. 32. 94, 28, 214, 25 

,177,22,227,21,154,19,63,17,37 

4016 DATA16,47, 14, 107, 12.216 

4018 F0RI-lT029:READX,YtS(I,l)=X:B(I,2)=Y:NEXT 

4020 DATA9, 159, 10, 205, 11, 114, 12, 216, 14, 107, 16. 47,1 

8,42,19,63,21,154,24,63 

4022 DATA25, 177,28,214,32,94,34,75,38, 126 

4024 DATA34, 75, 32, 94, 2B, 214, 25, 177, 24, 63, 21, 154, 19 

,63,18,42,16,47,14,107,12,216 

4026 DATA11,114,10,205,9,159 

4028 F0RI-1T029! READX , Yi D ( 1 , 1 ) =Xi D ( 1 ,2) -Ys NEXT 

4030 DATA14, 107, 16, 47, 17, 37, 19, 63, 21, 154, 22, 227, 25 

,177,28,214,32,94,36,85 

4032 DATA38, 126, 43, 52, 48, 126, 54, 111, 57, 172, 54, 111, 

48,126,43,52,38,126,36,85 

4034 DATA32, 94, 28, 214, 25, 177,22,227,21 , 154, 19,63, 1 

7,37,16,47,14,107 
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403B F0RI-1T029: READX , Ys A < 1 , 1 > «X « A < I ,2> -Y» NEXT 

4040 DATA10, 205, 11,1 14, 12, 216, 14, 107, 16, 47, 17, 37,1 

9,63,21 , 154,22,227,25, 177 

4042 DATA2B, 214, 32, 94, 36, 35, 40, 199, 43, 52, 40, 199, 36 

,85,32,94,28,214,25,177 

4044 DATA22, 227, 21, 154, 19, 63, 17, 37, 16, 47, 14, 107, 12 

,216,11,114,10,205 

4048 F0RI-1T029I READX , Y: E ( 1 , 1 ) -Xs E ( 1 ,2) «Y: NEXT 

4050 DATA16, 47, 17, 37, 19, 63, 21, 154, 22, 227, 25, 177, 28 

,214,32,94,36,85,40,199,43,52 

4052 DATA48, 126, 54, 11 1,57, 172, 64, 188, 57, 172, 54, 111 

,48,126,43,52,40,199,36,85 

4054 DATA32, 94, 28, 214, 25, 177, 22, 227, 21, 154, 19, 63,1 

7,37,16,47 

4058 FQRI-1T029S READX , Yi B ( 1 , 1 ) -X s 8 ( I ,2) =Ys NEXT 

4159 RETURN 

20000 0NSCQ0SUB34 , 200 ,210, 220 , 230 , 240 , 450 

20002 Q0SUB38 

20004 ONBCBOSUB 1 00, 150,160, 170, 160,190 

20005 SQT020000 

20006 PRINT"CCD3V0U'VE PLAYED THEM ALL " 

20008 END 



Explanation 

A lot of this will be familiar from other programs, so only the briefest 
of notes will be given here. 

Lines 5-6 : Set up arrays to hold note information for each scale. 

Lines 12-33 : On screen instructions. 

Lines 34-36 : Play scale of C major. 

Lines 38-75 : Usual routine for playing a note from the keyboard. 

Lines 100-140 : Check every note you played against every note in the 
scale. If you've got it right, go on to the next one, but if not go back 
to the same scale again. 

Lines 150-158 : Ditto for next scale. 

Lines 160-198 : And again, for all other scales. 

Lines 200-244 : Playing each of the scales in turn. 



109 



Lines 450-458 : Another game? 

Lines 598-655 : Reading data for keys. 

Lines 1000-1125 : Usual note playing routine. 

Lines 4000-41 59 : Data, and reading of it, for each note in each scale. 

Lines 20000-20008 : Control of program flow is all done from this little 
routine. 

Reaction timer 

With this program you're given the usual musical keyboard as used 
in Musical Simon, and after a random interval of time a note will appear 
on the screen, and be played as well for audio recognition. Then, as 
fast as you can, you must repeat the note. You're marked after every 
ten notes, told how many you got right and how many you got wrong, 
and the average amount of time it took you to press the relevant keys. 



5 BOSUB3O000 : GOSUB 1 OOOO 

9 GOT0200 

10 PRINT" CB6P,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP,R 

VS,2SP,0FF,SP,RVS,2SP,0FFD"? 

11 PRINT" CSP,RVS,2SP, OFF, 4SP,RVS,2SP,0FF3" 

12 REM LINES 10 AND 11 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

20 PRINT" CBSP,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP,R 
VS,2SP,OFF,SP,RVS,2SP,OFF3"; 

21 PRINT" CSP,RVS,2SP, OFF, 4SP , RVS , 2SP , OFF 3 " 

22 REM LINES 10 AND 11 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

30 PRINT" CSSP,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP,R 
VS,2SP,OFF,SP,RVS,2SP,OFF3"; 

31 PRINT" CSP,RVS,2SP, OFF, 4SP,RVS,2SP, 0FF3" 

32 REM LINES 10 AND 11 JOIN TOGETHER TO FORM ONE L 
INE ON THE 64 

40 PRINT" CBSP,RVS,BLK,2SP, OFF, SP,RVS,2SP, OFF, 4SP,R 
VS,2SP,OFF,SP,RVS,2SP,OFF3"s 

41 PRINT" CSP,RVS,2SP, OFF, 4SP,RVS,2SP, OFF3 " 

42 REM LINES 10 AND 11 JOIN TOBETHER TO FORM ONE L 

INE ON THE 64 

50 PRINT"r.6SP,RvS,WHT,2SP,BLK,2SP,WHT,SP,BLK,2SP,W 

HT,SP,CBMM,2SP,BLK,2SP,WHT,SP,J"J 

51 PRINT"CBLK,2SP,WHT,SP,BLK,2SP,WHT,SP,CBMM,2SP,B 

LK,2SP3" 
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52 REM LINES 50 AND 51 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

60 PR I NT " 1 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM , 3 " 5 

61 PRINT" C2SP, CBMM, 2BP,CBMM3" 

62 REM LINES 60 AND 61 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

70 PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 28P , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM , 3 " s 

71 PRINT"C2SP,CBMM,2SP,CBMM3" 

72 REM LINES 70 AND 71 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

BO PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 2 
SP , CBMM , 2SP , CBMM , 2SP , CBMM , 3 " J 

81 PRINT" C2SP, CBMM, 2SP, CBMM 3" 

82 REM LINES 80 AND 81 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

90 PRINT" C6SP, RVS, WHT, 2SP,CBMM,2SP, CBMM, 2SP, CBMM, 2 

SP , CBMM , 2SP , CBMM , 2SP , CBMM , 3 " ; 

91 PRINT"C2SP,CBMM,2SP,CBMM3" 

92 REM LINES 90 AND 91 JOIN TOBETHER TO FORM ONE L 
INE ON THE 64 

1 00 PR I NT " C 6SP , RVS , WHT , 2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 
2SP , CBMM , 2SP , CBMM , 2SP , CBMM , 3 " j 

101 PRINT"C2SP,CBMM,2SP,CBMM3" 

102 REM LINES 100 AND 101 JOIN TOBETHER TO FORM ON 
E LINE ON THE 64 

110 RETURN 

200 POKES+21,OiPRINT"CCLR3WOTE COM INS UP«C4CD3"«SO 
SUB10:GG«BG+1 

201 PRINT" CHOME, 3CD,WHT3 # # # # # 
#" 

202 PR I NT "C HOME, 4CD, WHT 3 CD F G A 
C" 

203 PRINT" CH0ME,15CD3 CDEFBABC 

II 

204 FORI=1TOINT(RND(.5)*1000+1000) sNEXT 

205 KE*<1)=MID*<KE*,INT(RND<.5>*13+1) ,1) 

206 F0RI=lT010sBETN*iNEXT 

207 POKEV+4,0 

208 FOR I - 1 TO 1 4 s I FKE* ( 1 ) -M I D* ( KE* ,1,1) THENB0SUB5000 
0:1=14 

209 NEXTIiP0KEV+4,65sP0KES+21,l:T«TI 

210 PRINT" C2CD3G0" 

220 P=0 J BETN* : I FN** " " THEN220 

225 F0RI-1T014: IFN*-MID* (KE*, I, 1 ) THENP-1 

226 NEXTIIIFP-0THEN220 
230 AN*-N* 

232 F0RI = 1T0I_EN(KE*> 

234 I FN*=M I D* < KE* ,1,1) THENPOKEV+4 , s POKEV+4 , 65 s BOS 
UB50000 

235 NEXT 
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240 T1=TI: PRINT" CCD37IME TAKEN - " s (Tl-T) /60: " SEC 

ONDS. " 

260 IFAN*< >KE* ( 1 ) THEN300 

280 PRINT" ICV1C0RRECT ! " : F0RJ-0T01000: NEXT: GR-BR+1 : 

TR=TR+ (Tl-T) /60s IFBS-10THEN321 

286 B0T0200 

300 PRINT" C CD, RVS 3 WRONG! ": :F0RJ=0T01000: NEXTsGW= 

BW+1 s TW-TW+ <T1-T) /60s IFSB-10THEN321 

320 BOT0200 

32 1 PR I NT " C CLR 3 RESULTS T I ME s " 

322 PRINT" CCD 3 GUESSES RISHT = "«SR 

323 PR I NT "GUESSES WRONG - " s GW 

324 PR I NT" AVERAGE TIME - "sTR/GRs" SECONDS" 

325 PR I NT "FOR RIGHT GUESSES. 

326 PRINT"4VERAGE TIME - "sTW/SWs" SECONDS 

327 PR I NT "FOR WRONG GUESSES." 

328 PRINT" C2CD 3 ANOTHER GO <V OR M> ?" s POKES* 1 ,0s POK 
ES.O 

329 TW-0 s TR-0 s BR-0 s BW-0 s GG-0 

330 GETG*s I FB*- " Y " THEN200 

340 I FG*= " N " THENPR I NT " C 2CD 3 BYE . " s END 
350 G0T0330 

9999 END 

1 0000 P0KE5328 1 , 111 P0KE53280 , 1 1 s P0KE53272 , 23 s PR I NT 
"C CLR, BLK.RVS 3 WELCOME TO REACTION" 

10002 PRINT" C CD 3 THIS GAME WILL TEST YOUR REACTIONS 

, AND YOUR ABILITY TO RECOGNISE"? 

10004 PRINT" AND PLAY A MUSICAL NOTE. " 

10006 PRINT" [CD 3 THE COMPUTER, AFTER A RANDOM INTER 

VAL OFT I ME, WILL GENERATE A "s 

10008 PR I NT "MUSICAL <?!) NOTE AND YOU HAVE TO I DEN 

TIFY AND PLAY THAT NOTE "i 

10010 PR I NT "AS QUICKLY AS POSSIBLE. " sGOSUBlOsGOSUB 

20000 

10012 PR I NT " C CLR, RVS 3 REACT I ON" 

10014 PRINT" C CD 3 THE GAME WILL BE PLAYED USING THE 

KEYS INDICATED BELOW." 

10016 PRINT"CHOME,4CD3"sGOSUB10 

10026 PRINT" C HOME, 5CD,WHT 3 WE T Y U 

O" 
10028 PRINT" CHOME,15CD3 A S D F G H J 

K" 
10030 PRINT"C2CD37RY IT NOW, JUST TO BET THE FEEL 
OF THE KEYBOARD. WHEN YOU'RE FED"s 
10032 PRINT" UP, PRESS 'SPACE ' TO GET THE SHOW 
ROLLING. " 

1 0040 GET A* i I FA*- " " THEN 1 0040 
10045 I FA*-" "THEN 10900 
10050 F0RI«1T0LEN<KE*> 

1 0060 I FA*-M I D* ( KE* ,1,1) THENPOKEV+4 , O I POKEV+4 , 65 ■ B 
0SUB50000 
10070 NEXT 
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10090 SOTO 10040 

10900 PRINT" C CD 3 VOU 'LL BE MARKED AFTER EVERY TEN G 

0ES.":FQRJ=lT01500sNEXT 

10999 POKES+ 1,0 i POKES, 0: RETURN 

20000 PRINT" C2CD,RVS 3 PRESS 'SPACE- TO CONTINUE." 

20002 F0RI=1T010:BETSP*:NEXT 

20004 BETSP*iIFSP*<>" "THEN20004 

20006 RETURN 

30000 V=54272 : POKEV+3 , 255 : POKEV+5 , 9 : POKEV+6 , s POKE 
V+4 , 65 : POKEV+24 , 1 5 

30001 DIMN0(2B) ,KE*(255> , AN* (255) ,SP(2B) 

30002 DAT A4, 73, 4, 208, 5, 103, 5, 185, 6, 108, 7, 53, 8, 23, 8 
,147,4,139,5,25,6,16,6,206 

30004 D AT A7, 163,9,21 

30006 FOR I - 1 T02B ! RE ADNO < I ) : NE X T 

30008 KE*-"ASDFBHJKWETYUO" 

30010 S-5324B 

30012 F0RI-0T062» READAs P0KEB32+I , At NEXT 

300 1 4 P0KE2040 ,13s POKES+23 , s POKES+29 , : PDKES+28 , 
: POKES+39 , 5 1 X-0 1 Y-0 

300 15 POKES+ 1 , Y s POKES , X i POKES+2 1 , 1 

30016 F0RI-lT028sREADSP(I):NEXT 
300 IB RETURN 

40001 DATAO,0,0,0,0,0,0 

40002 DATA32,0,0,4B,0,0,56 

40003 DATAO, 0,60, 0,0, 38,0 

40004 DATAO, 34, 0,0, 34, 0,0 

40005 DATA36,0,0,32,0,0,32 

40006 DATAO, 0,32, 0,0, 32,0 

40007 DATA3, 224, 0,7, 224, 0,15 

40008 DAT A240, 0,15,240,0,7,224 

40009 DATAO, 1,128, 0,0, 0,0 

41000 DATA 73,135,97,135,121,135,145,135,169,135,1 

93,135,217,135,241,135 

41002 DATA 86, 95, 1 10,95, 15B, 95, 182,95,206,95,255,9 

5 

50000 POKEV+1 ,N0 < I + I-l ) : POKEV,NO ( I + I > : POKES+1 ,SP < I 

+ 1) : POKES, SP< I + I-Dt RETURN 



Explanation 

Most important of all! Lines 322 and 323 (just spotted this!) need 
altering slightly, to read as follows: 

322 PRINT"[CD]GUESSES RIGHT = ";GIMFGR=0THENGR=1 

323 PRINT"GUESSES WRONG = ";GWaFGH=8THENGW=l 
Otherwise, a brilliantly successful session or abysmally bad session 
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(guess which one I had) will produce a division by zero error in line 
324 or line 326. Sorry about that. 

Lines 10-110 : Usual keyboard. 

Lines 200-209 : Display keyboard and, after a random interval of time, 
play and display a note. 

Lines 210-240 : Get player's note, and take time. 

Lines 260-320 : Right or wrong? 

Lines 321-350 : Player marked, and another game is requested. 

Lines 10000-20006 : Display instructions and keyboard, and let player 
play on keyboard for a while. 

Lines 30000-30018 : Read in sprite and note data. 

Lines 40000-41002 : Data for sprite and note. 

Line 50000 : Little routine to play and display note. 

Once you've finished with that one, it's time for some games with 
sound in Chapter 12. 
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12 
Musical Games Programming 

Introduction 

Using sound with games is very much a matter of personal taste. Some 
people like background rhythms playing all the time, others don't, so 
if you do use music always include an option to turn it off. This 
shouldn't take away the 'sound effects' part of the game, merely the 
tune. How many of us have, after just a couple of seconds, turned 
the sound off when playing Manic Miner (not that this particular game 
is the only offender). 

Accordingly, the two games listed here do include a tune (loaded in 
the driver programs headed Pestart and Mustart respectively), but also 
give you the option to turn that tune off. 

Pestroy 

In other words, destroy the pests that come after you. A number of 
interesting routines lie in this game, including scrolling the screen 
character by character left and right, playing that background tune, 
setting up a whole host of user-defined characters, and so on. Play 
using the joystick in port two, and if you want the starter program 
to load everything from tape rather than disk, alter lines and 1170 
in that same driver program. 

PESTART 



IFPEEK<49219)O65THENL0AD "BOOBIETIME" ,B, 1 

1 1 60 V=54272 s POKEV+ 1 7 , 255 1 POKEV+ 1 9 , 1 42 s POKEV+20 , 1 5 
O 

1161 POKEV+24 , 1 5 : P0KE492 1 6 , 1 s P0KE492 1 B , O i P0KE492 1 
9 , 65 s P0KE25 1 , 1 78 1 P0KE252 , 1 92 

1162 P0KE253,17BiP0KE254,192 

1163 P0KEV+10,255sP0KEV+12,142«P0KEV+13,150 

1 1 64 POKES 1 264 , 1 s POKES 1 266 , I P0KE5 1 267 , 65 : P0KE247 
, 178i P0KE24B, 200 
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1 i 66 P0KE249 , 1 78 s P0KE250 , 200 : SYS49 1 52 

1 1 70 PR I NT " C CLR , 2CD 3 LOAD " : CHR* < 34 ) s " PESTROY ": CHR* < 

34) 5 " , BC4CD3 " s PR I NT "RUNE HOME 3 " ; 

H75 P0KE198,2sP0KE631,13:P0KE632,13;END 

READY. 



PESTROY 



15 PRINTCHR*<B> 

20 P0KE56,48:P0KE52,48:CLR8E=5 

25 P0KE5328 1,0: P0KE532B0 , ; PR I NT " C CLR , YEL 3 " TAB ( 1 7 ) 
" PESTROY " : S=0 : HS=0 : C0-55296 : SC= 1 024 

26 PRINT" C2CD 3 SHOOT EVERYTHING AND ANYTHINS ... 
30 PRINT" C2CD 3 MOVE USING JOYSTICK IN PORT 2s" 

32 PR I NT "TO TURN BACKGROUND TUNE OFF, PRESS Fl 

33 PRINT" C CD 3 TO TURN IT ON, PRESS F3 

34 PRINT"C2CD3NOW PLEASE HANG ON WHILE I READ A FE 
W NEW CHARACTERS IN. " 

38 G0SUB1100 
40 G0SUB30000 

42 G0SUB4O000 

43 G0SUB9O0 
45 80T010O 

50 PR I NT "C HOME 3 

60 PRINT" C HOME, WHT 3 SCORE ";Si TAB<20) "HIGH SCORE "a 

HS i RETURN 

100 G0SUB1000iG0SUB700 

102 GOSUBSO 

103 SP-40O 

110 A-INT(RND(.5)*3+33)iB-INT(RND(.5)*2+3B) 

1 15 C-INT <SP/40) « C-C*40+39» IFO680THENC-679 

1 16 POKEC+SC,Ai IFINT (RND< .5) *10) >5THENP0KEC+SC , B 

1 20 POKESC+SP , 36 s POKESC+SP+ 1 , 37 : POKECO+SP , 7 : POKECO 
+SP+1,7 

121 I FG= 1 ANDT I -TO > 1 20THENB0SUB50 1 G-0 

1 25 POKESC+SP , 32 : POKESC+SP+ 1,32a S YSB2B 

126 IFPEEK<SC+SP+2)O32THEN800sREM END OF GAME 

127 Z«PEEK<197> : IFZ=4THENP0KE49219,64:P0KE51267,64 

1 28 I F Z =5THENP0KE492 1 9 , 65 s P0KE5 1 267 , 65 
1 30 Z -PEEK ( 56320 ) : S2-56320 

132 IFZ«1230RZ-107THENSP-SP-liP0KESl+l,3s IFSP/40-I 

NT (SP/40) THENSP-SP+1 i GOTO 120 

134 IFZ=1190RZ=103THENSP-SP+1:P0KES1+1,5: IF(SP-23) 

/ 40= I NT ( ( SP-23 ) /40 ) THENSP-SP- 1 s GOTO 1 20 

136 IFZ=1260RZ=1 10THENSP=SP-40« IFSP<40THENSP=SP+40 

: GOTO 120 

138 IFZ«1250RZ=109THENSP-SP+40s IFSP>960THENSP=SP-4 

O: GOTO 120 
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140 IFZ=111 THENPOKESC+SP , 36 : POKESC+SP+ 1 , 37 : POKECO+ 
SP , 7 : POKECO+SP+ 1,7s G0T0600 s GOTO 1 20 
145 IFINT<RND(.5>*10> >5THEN110 
150 GOTO 120 

600 FOR I = 1 TO 1 : I FPEEK < SC+SP+ I+1)=78THENFF=1 

60 1 NEXT s I FFF« 1 THENFF-0 : SOTO 1 20 

602 E=E+ 1 s I FE / 5» I NT < E / 5 > THENPR I NT " C HOME 3 OVERHEATED 
" : TO-T I s G« 1 : G0T0650 

603 IFG=1ANDTI-T0<120THEN120 

604 G0SUB50 s FOR I = 1 TO 1 : I FPEEK ( SC+ 1 + 1 +SP )< >32THENS= 
S+10sP0KESl+4, 129s F0RK=iT050s NEXT: P0KES1+4, 65 

605 POKESC+SP+ I + 1 , 45 : POKECO+SP+ 1+1,9 

606 P0KESl+l,30sNEXT 

607 F0RI=lT010:P0KESC+SP+I+l,32sNEXT 

608 B0SUB50: POKES 1 + 1, 4 s GOTO 120 

650 F0RI = lT05s F0RJ=»0T020s P0KES1 + 1 , J s NEXTJ , I s P0KES1 

+l,4sS0T0120 

700 S 1 =54272 s POKES 1 +3 , 1 2 s POKES 1+5 , 40 s POKES 1 +6 , 1 46 s 

POKES 1 +24 , 1 5 s POKES 1 +4 , 65 

702 POKES 1 + 1, 4 s RETURN 

800 PRINT" CCLR3Y0U BLEW IT WITH A SCORE OF "sPRINT 

"[CD,CR3";S 

805 POKES 1 +4 , 1 29 s FOR I =250T00STEP- 1 s POKES 1 + 1 , 1 s NE X T 

s POKES 1+24,0 

810 IFS>HSTHENPRINT"C2CD3BUT AT LEAST YOU DID GET 

THE NEW H I GH SCORE . " s HS=S s S-0 

820 PRINT" C2CD 3 OTHER GAME (Y OR N>?" 

825 GET AG* s I FAG*= " Y " THENPOKES 1 +24 , 1 5 s PR I NT " C CLR 3 " s 
G0T043 

826 IFAG*="N"THENPRINT"CCLR,2CD3BYE. " s END 

827 G0T0B25 

899 END 

900 REM DRAW MOUNTAIN RANGE 
914 PRINT" CCLR,23CD3";s 

918 RUN LINES 919,920 AND 921 TOGETHER TO FORM ONE 
CONTINUOUS LINE 

919 REMS\ REPRESENTS SHIFTED POUND, C* REPRESENTS 
CBM KEY AND *. 

920 PRINT" CGRN,RVS,S\,CU,S\,CU,B\,CU,S\,C*, CD, C#,C 

D,C*,S\,CU,S\,CU,S\,C*,CD,C*3"| 

921 PRINT"CCD,C*,S\,CU,S\,CU,S\,CU,S\,C*,CD,C#,CD, 
C*,CD,C*,CD,C*,S\,CU,S\,CU,S\,C*3"s 

922 PRINT"CCD,C*,S\,CU,S\,CU,S\,C#,CD,C*,CD,C*,S\, 
CU,S\,CU,SS,C*,CD,C*,CD,C*,CD,C*3" 

923 PRINT"C4CU,16CR,RVS,2SP3" 

924 PRINT"CRVS,3CR,2SP,4CR,2SP,4CR,4SP,10CR,2SP3"s 

925 PR I NT " C RVS , 2CR , 4SP , 2CR , 48P , 2CR , 7SP , 4CR , 2SP , 2CR 
,4SP,4CR,2SP3" 

926 PRINT"CRV8,CR,20SP,2CR,10SP,2CR,4SP3": 
930 FORI- 1984T02023S POKEI , 160« NEXT 

932 F0RI-56056T056295IP0KEI ,5s NEXT 
940 PR I NT "C HOME 3 
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945 RETURN 

1000 REM SET UP COLOUR FOR CHARACTERS ON SCREEN 

1 002 FOR I =40T0 i 39 : POKECO+ 1 , 1 : NEXT 

1 004 FOR I - 1 60T0279 : POKECO+ 1 , 4 s NEX T 

1006 F0RI=2B0T0399sP0KEC0+I ,5: NEXT 

1008 F0RI=400T0519:P0KEC0+I ,6tNEXT 

1010 F0RI«520T0679:P0KEC0+I,10sNEXT 

1012 RETURN 

1089 END 

1100 P0KE56333,127 

1105 P0KE1,51 

1110 F0RX-0T01024 

1120 POKE 1 2288+ X, PEEK (5324B+X) 

1130 NEXT 

1140 P0KE1.55 

1150 P0KE56333,129 

1160 P0KE53272.29 

1170 RETURN 

30000 DATA24 , 28 , 30 , 27 , 25 , 1 20 , 240 , 96 

30001 DATA48,60,54,51,60,54,227,224 

30002 DATA6, 103, 110, 119, 110,246, 102,224 

30003 DATA224,240,31,15,15,31,240,224 

30004 DATAO , , 224 , 255 , 255 , 224 ,0,0 

30006 DATA63,33,33,33,33,231,231,198 

30007 DATA192, 192,248,252,204,216,240,224 

30008 F0RI=0T055:READAiP0KE12552+I,A:NEXTsPRINT"CC 

LR 3": RETURN _ ^ 

40000 DATA169, 40, 162, 24, 133, 87, 169, 4, 133, 88, 160,0, 

177,87,133,89,200,177 

40002 DATAB7, 136, 145, 87, 200, 152, 201, 39,208, 244, 165 

,89,145,87,165,87,24,105 

40004 DATA40, 133, 87, 144, 2, 230, 88, 202, 208, 220, 96,-1 

40006 A-828 

40008 READB : I FBO- 1 THENPOKEA , B s A=A+ 1 : 80T04000B 

40010 RETURN 

READY. 



Musicman 

Variations on a theme here, as Musicman features a number of musical 
aliens chasing around the usual maze gobbling dots and eating 
everything they come across. 

Again, if you want to load from tape rather than disk, alter lines and 
1170. The music for both these games follows the main listings. 
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MUSTART 



O IFPEEK<49219)O65THENL0AD "YELLOW ",8,1 

1 1 60 V-54272 s POKE V+ 1 7 , 255 8 POKE V+ 1 9 , 1 42 : POKE V+20 , 1 5 
O 

1161 POKEV+24 , 1 5 1 P0KE492 16,10s P0KE492 1 8 , 1 P0KE492 1 
9,65:P0KE251 , 178s PQKE252, 192 

1162 P0KE253,178sP0KE254,192 

1163 POKEV+10,255:P0KEV+12,142iPOKEV+13,150 

1 1 64 P0KE5 1 264 , 1 1 POKES 1 266 , O s POKES 1 267 , 65 1 P0KE247 
178iP0KE248 200 

1 1 66 P0KE249 \ 1 78 I POKE250 , 200 I SYS49 1 52 

1170 PRINT"[CLR,2CD3L0AD"iCHR*<34)i"MUSICMAN ,, jCHR* 

(34)|",8C4CD3"iPRINT"RUNCH0MEr'i 

1175 P0KE198,2iP0KE631,13iP0KE632,13iEND 

READY. 



MUSI OMAN 



90 P0KE532B0 . 7 : P0KE5328 1 , « PR I NT " C YEL 3 

100 DIM CX<255> ,C<8> ,0(8) ,RX<4> ,RY<4> 

110 0=501 76s SI =54272: POKES 1+2. 255: P0KES1+5. 9s POKES 

l+6,0:P0KESl+4,65sP0KESl+24,15 

120 Cy.(60)=-l:Cy.(62)=-l:C-/.<22)=-l:C-/.(l)=-l:CV.(93) = 

-l:C"/.<64)«-l 

130 F0RX=2T08STEP2:READC<X> s NEXTX-.DATA131 , 129. 128. 

130 

1 40 F0RX=2T08STEP2 : READO < X > s NE XTX : DATA93 .64.64.93 

160 C<0)=C<6) :0<0>=0<6) 

200 B0SUB20000 

210 T(2)=L:T(4>=-l:T(6)=lsT<8)— L 

220 NB=0+ll*L:N9=N8+39 

300 S=0:LV=.90:S6=10:CC=2 

399 REM THE + SYMBOL REPRESENTS PRESS INS CBM AND + 
AT THE SAME TIME. 

400 A=0s PRINT" CCLR,BLU3+++++++++++++++++++++++++++ 
++++++++++++ 

410 PRINT" + ++ 

420 PR I NT " + . ++++ . ++++ . ++++++ . ++ . ++++++ . ++++ . ++++ . 

430 PRINT" + .+ + + + + + + +• 

440 PRINT "+. +.++.+.++.+.++++.++.++++. +.++.+.++. +. 
450 PRINT" +.+.++.+.++.+....+.++.+... .+.++.+.++.+ . 

460 PRI NT" + ++...++...++ 

470 PRINT" +. ++++++.++++.++.+.++.+. ++.++++.++++++. 

480 PRINT" + . + + *+ +* + + • 

490 PRINT" +. . .++++.+.+++.+.++++++.+.+++.+.++++. . ■ 
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500 PRINT"+++++. . . .+ +■ • • .++++ 

510 PRINT" .++++++.++++++++++++++.++++++. 

520 PRINT"+++++. . . . + +■ • • .++++ 

530 PRINT"+. . .++++.+.+++.+.++++++.+.+++.+.++++ 

540 PRINT"*. + + *+ +* + +• 

550 PRINT"+. ++++++. ++++. ++.+.++.+. ++. ++++.++++++. 

560 PRINT"* ++...++...++ 

570 PRINT "+.+.++.+.++.+....+.++.+... .+.++.+. ++.+. 
580 PRINT"+. +.++.+.++.+.++++.++. ++++.+.++.+.++. +. 

590 PRINT"*. + + + ++ + + + ■ 

600 PR I NT " + . ++++ . ++++ . ++++++ . ++ . ++++++ . ++++ . ++++ . 
610 PRINT"+ ++ 

625 P0KE0+B*40+ 1 4 , 1 33 : POKES 1+1 024+8*40+ 14,4 

626 P0KE0+8*40+25, 133:P0KESl+1024+8*40+25.4 

627 PDKEO+ 1 4*40+25 , 1 33 s POKES 1 + 1 024+ 1 4*40+25 . 4 

628 POKEO+ 1 4*40+ 1 4 . 1 33 : POKES 1 + 1 024+ 1 4*40+ 14.4 
630 REM 

640 NX=39 : F0RNY-0T022 1 1 FNY< > 1 1 THENPOKEO+NX+l_*NY , 1 

2:P0KENX+L*NY+S1+1024,6 

650 NEXTNY 

655 IFLL>0THEN730 

660 ZX=132:F0RY=1T04 

670 NX»INT(RND<l)*37+2) 

680 NY-INT(RND(l)*21+2> 

690 Z-0+NX+l_*NYs IFPEEK(Z) O46S0T0670 

700 B(Y)«PEEK<Z):P0KEZ,ZX:P0KEZ+5i20,CC 

710 RX(Y)»NXsRY(Y)-NY 

720 NEXTY 

730 N=0+l_+ 1 : N0»N : POKEN , C < 6 > s P0KEN+5 1 20 . 7 

1 000 P-PEEK < 56320 ) s I FP- 1 27THEN 1 040 

1003 Rl-P 

1005 IFR1-111THEN3000 

1011 IFR1=123THENR1=4:B0T01020 

1012 IFRl=119THENRl-6i80T01020 

1014 IFRl-126THENRl-BsQ0T01020 

1015 IFR1-125THENR1-2IQOT01020 

1016 G0T01000 

1020 IFT(R1)-0B0T01000 

1030 R-R1:R2=T(R) 

1040 N0-N+R2 

1050 Nl -PEEK (NO) 

1 060 I FN0-N8THENN0-N0+38 s GOTO 1 050 

1 070 I FN0-N9THENN0-N0-38 1 GOTO 1 050 

10B0 IFN1-102THENN0-NJN1-32 

1090 IFN1-133THENBOSUB5000 

1 1 00 I FN 1 =46THENS-S+5 : A-A+ 1 8 B0SUB25000 

1110 IFN1-132G0T04000 

1 1 20 I FN 1 ■ 1 34THENB0SUB5B00 s GOTO 1 040 

1 1 30 S8-66 s I FN 1 «46THENSB= 1 25 

1 160 S9=SBs Q-N-Oj PY«=INT <Q/L) i PX-Q-PY*L 

1170 F0RY=1T04 
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1 1 80 I FRND (IX LVS0T0 1 260 

1190 RX=RX(Y):IFRX-0B0TQ1260 

1200 NX=RX+SGN (PX-RX) : NY=RY ( Y> +SBN <PY-RY ( Y) ) 

1210 Z«0+NX+L*NY:C7.=PEEK<Z> : IFC%=ZXS0T01260 

1220 POKEO+RX(Y)+L*RY(Y> ,B (Y) : B (Y> =32:P0KE0+RX (Y) + 

RY(Y)*I_+5120,6 

1 225 I FC7. ( C7. ) G0T03950 

1230 IFZ=NOANDZX=216THENBOSUB6000: S0T01260 

1240 P0KEZ.ZX:P0KEZ+5120.CC: 39*253: B(Y)=C"/. 

1250 RX(Y)=NX:RY(Y)=NY 

1260 NEXTY 

1270 IFZX=134THENB0SUB7000 

1 280 POKEN , 32 : POKENO , C ( R > : P0KEIM0+5 1 20 . 7 

1290 P0KESl+4,0:P0KESl+4,65:POKESl+1.6:P0KES1.80 

1300 P0KES1+1. INT (SB/10) :F0RX=lT0S6:NEXTX:P0KESl+4 

,0:P0KESl+4.65 

1305 P0KES1+1,INT(S9/10):F0RX=1T0S6:NEX1 

1310 P0KES1+1.0 

1 320 POKENO . ( R ) : P0KEN0+5 1 20 . 7 

1330 N=N0 

1340 IFAO44BB0T01000 

2000 LV«LV*LV:S6«S6/2+2 

2010 F-F+l 

2020 P0KESl+4,0sP0KESl+4,65:PQKEBl+1.6:P0KES1.80:F 

0RX-0T020: P0KES1 . X : NEXTX 

2030 F0RX=100T070STEP-1 : P0KEB1+1 , Xs NEXTX 

2040 B0T0400 

3000 I FBT=0THENP0KE492 19.64: P0KE5 1 267 , 64 : BT= 1 : GOTO 

1000 

3002 P0KE492 1 9 , 65 : POKES 1 267 , 65 : BT=0 : SOTO 1 000 

3950 I F Z X= 1 34THENS0SUB6000 : BOTO 1 040 

3999 REM SUICIDE 

4000 FOR I -0T09 s Y ( I ) -PEEK ( 504 1 6+ 1 ) : Z ( I > -PEEK ( 50376+ 
I):NEXT 

4001 F0RK-lT010sP0KESl+4.0:P0KESl+4,129 

4002 POKES 1 + 1 , 6 : POKES 1 , BO : FOR X -80T0 1 30STEP2 : POKES 1 
+1,XiNEXTX:P0KES1,0 

4015 IFK/2OINT(K/2)THEN4030 

4020 PR I NT " C HOME , 5CD . RED 3 BOT YOU ! " : POKEN , 2 1 4 : POKES 

1+1,58:SOT04040 

4025 P0KES1+4,0:P0KEB1+4,65:P0KES1+1.6:P0KES1.80:P 

OKES 1 + 1 , 58 i B0T04040 

4030 PR I NT " C HOME , 5CD , BRN 3 GOT YOU ! " : POKEN , B6 : POKES 1 

+ 1,48 

4035 NEXTK 

4040 NEXTK: PRINT" CBLU3 

4041 P0KESl+l,0:P0KESl+4,65 

4042 l_l_=LL+ 1 : IFLL-3THENPP-PP+ 1 : B0T04045 

4043 B0SUB25000:B0T0400 

4045 PRINT"CCLR3"TAB(11):"CYEL3*** MUSICMAN ***":L 

L-0: POKES 1+24,0 

4050 PRINT" C3CD,3CR 3 YOUR SCORE WAS ":S:"CCD3" 
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405 1 I FHS=0THENHS=S : G0T04O54 

4052 IFS>HSTHENPRINT"CCD3 A NEW HIGH SCORE! CCD3 
":HS=S:BaT04054 

4053 PRINT "CCD3 HIGH SCORE: ":HS 

4054 PR I NT " £ CD , 3CR 3 GUARDS CAUGHT : " : CG : " " 
4060 PRINT"C3CD3DO YOU WANT TO PLAY AGAIN?" 
4070 GETW* : I FW*= " " THEN4070 

40B0 I FW*= " N " THENPR I NT " C CLR , 2CR 3 BYE C HOME 3 " : : P0KE63 
l,13sP0KE19B,l:END 
4090 I F W*< > " Y " THEN4070 
4100 POKES 1+24,1 5: G0T0300 

4999 REM EAT A PILL 

5000 ZX-134:F0RY-1T04 

50 1 NX=RX ( Y ) : NY=RY ( Y > : I FNX=0THEN530 

5020 P0KE0+NX+L*NY,ZX:P0KE0+NX+L*Y+5i20.2 

5030 NEXTY 

5032 POKES 1+4,0: POKES 1 +4 , 65 : FOR I »0T0 1 00 : POKES 1 + 1 . 1 

:NEXT:F0RI=100T00BTEP-1:P0KES1+1.I:NEXT 

5035 T0=TI+600:CC=5 

5040 RETURN 

5799 REM CHOMP A GHOST 

5800 FORY= 1 T04 : I FNO=RX < Y ) +RY < Y ) *L+0G0T05S30 
5820 NEXTY 

5830 POKENO , B ( Y ) : P0KEN0+5 1 20 , 6 

5999 REM: WIPE A GHOST 

6000 S-S+100 
6005 G0SUB25000 

60 1 CB-CG+ 1 : POKES 1+4,0: POKES 1 +4 , 65 

6012 P0KES1+1,6:P0KES1+4,129:P0KES1,S0:F0RX-10T010 

OSTEP2:POKESl+l,X:NEXTX:POKESl,0:POKESl+4,33 

6016 RX<Y>-0 

6060 RETURN 

7000 IFTI>T0G0T07100 

7010 IFT0-TI>60G0T07160 

7020 F0RY-1T04 

7030 RX=RX (Y) : IFRX< >0G0T07070 

7040 NX-Y+18:NY-ll:Z-0+NX+L*NY: IFPEEK(Z)-196G0T070 

60 

7050 P0KEZ,196:P0KEZ+5120,2:G0TQ7070 

7060 POKEZ, 102:P0KEZ+5120,6 

7070 NEXTY 

7080 P0KES1+1 ,6:P0KES1 ,B0: FOR X=50T0B0: POKES 1 ,90-X: 

NEXTX 

7090 POKES 1+1,0: RETURN 

7100 ZX«132:F0RY-1T04 

7110 NX-RX (Y> :NY-RY (Y) : IFNX< >0G0T07140 

7120 NX-Y+1BiRX<Y)-NXiNY-11iRY<Y)-NYiB(Y)-102 

7 1 40 POKEO+NX+L*NY , Z X : P0KE0+NX+L*NY+5 1 20 , 6 

7150 NEXTY: CC-2 

7160 RETURN 

7975 POKES 1+4,0: POKES 1+4, 65 

20000 PRINT"CCLR3"TAB(U):"CYEL3*** MUSICMAN ***" 
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2000 1 L=40 ; I FCP= 1 THEN200 1 

20002 PR I NT "C2CD 3 PLEASE WAIT A LITTLE WHILE. ":B0SU 
B29000 

20010 PRINTTAB(1>:"CCD3RIGINALLY CREATED BY PAUL 6 

UMMERSALL" 

20015 PRINTTAB(4):"C2CD]CDDING CHANGES BY JIM BUTT 

ERF I ELD" 

20018 PRINT" C CD. 3CR 3 ADAPTED FOR THE CBM64 BY YOURS 

TRULY" 
20020 PRINTTAB(6)"C3CD.SHIFTU,26SHIFT*.SHIFTn" 
20030 PRINTTAB(6)"tSHIFT~3 DO YOU WANT INSTRUCTION 
S [SHIFT-}" 
20035 PRINTTAB<6>"CSHIFT-3 YES OR NO 

[SHIFT— 3 " 
20040 PRINTTAB<6>"CSHIFTJ.26SHIFT*.SHIFTK3" 

20050 GETW* : I FW*= " " THEN20050 

20060 IFW*="N"THENRETURN 

20070 IFW*="Y"THEN20100 

20080 B0T020050 

20100 PRINT"CCLR3"TAB<11>:"*** MUSICMAN ***" 

20110 PRINT" C3CDD WELCOME TO THE SAME OF MUSIC 

MAN. " 

20120 PRINT" CCD3 IN THIS GAME YOU TRY TO EAT AS 

MANY" 

20130 PRINT" OF THE LITTLE DOTS IN THE MAZE AS " 

20140 PRINT" YOU CAN. THIS MAY SOUND EASY BUT YO 

U" 

20150 PRINT" WILL BE CHASED BY GUARDS THAT LOOK" 

20160 PRINT" LIKE THIS: CRVS.RED3DtOFF.YEL3. SO 

KEEP AWAY FROM THEM." 

20170 PRINT" USE JOYSTICK IN PORT 2 TO MOVE: " 

20230 PRINT" C CD 3 PRESS ANY KEY TO CONTINUE" 

20240 GETW* : I FW*« " " THEN20240 

20250 PRINT"CCLR3"TAB<11>"*** MUSICMAN *»*" 

20260 PRINT"C2CD3 YOU HAVE A CHANCE OF CAPTURING 

THE" 

20270 PRINT" GUARDS. YOU HAVE TO EAT ONE OF THE" 

20280 PRINT" ENERGIZERS THAT LOOK LIKE THIS: CRVS 
.PUR3ECYEL3" 

20285 PRINT" WHEN YOU DO. THE GUARDS APPEAR 

20290 PRINT" LIKE THIS: tRVS,GRN3FC0FF . YEL3 . NOW 

YOU CAN GET THEM 

20295 PRINT" AND GAIN 100 POINTS EACH. 

20296 PRINT 

20297 PRINT" BUT WATCH IT: THE ENERGIZERS LAST 

20300 PRINT" ONLY TEN SECONDS: THEN THE 

20301 PRINT" GUARDS ARE BACK AND DANGEROUS. 

20302 PRINT" t CD 3 OH YES, THEY CAN ALSO WALK THRO 
UGH THE WALLS!" 

20304 PRINT" C CD 3 PRESS FIRE BUTTON TO TURN TUNE 

OFF AND ON." 

20310 PRINT" C2CD3ARE YOU READY TO PLAY" 
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20320 SET W* : I FW*= " " THEN20320 
20330 IFW*="Y"THENRETURN 
20340 I FW*< > " N " THEN20320 

20350 PRINT" C HOME. 14CD 3 WELL DECIDE" 

20351 F0RX=1T0200:NEXTX 
20355 PRINT"! HOME. 14CD 1 
20360 G0T020320 

25000 PRINT"CHOME,23CD.YEL3SCORE: "sS;" LIVES 
LEFT: ":3-LL: RETURN 

29000 RETURN 

29001 P0KE56333. 127: POKE 1.51 

29002 FOR I =0T0 1 023 : P0KE53248+ I , PEEK ( 53248+ I ) : NEXT 

29003 F0RI=0T055:READA:P0KE54272+I .AzNEXT 

29004 POKE 1 . 55 : P0KE56333 . 1 29 : P0KE64B . 1 96 : P0KE56576 
.4:P0KE53272.21:PRINT"CCLR3" 

29005 CP«ii RETURN 

30000 DATA15. 62, 124,248,248, 252, 126, 15 

30001 DATA240,124,62,31,31,62.124,240 

30002 DATA129, 195,231 ,255,255. 126,60.24 

30003 DATA24, 60, 126. 255. 255. 231. 195. 129 

30004 DATA60, 126,215,215,255,255,255. 173 

30005 DATA24,36.90, 189, 189,90.36,24 

30006 DATA129, 189,255,215,215,255.255. 173 



Music listings 

These are given in the form of hex dumps, and should be typed in 
exactly as shown. The program for PESTROY, namely BOOGIETIME, 
comes from Chapter 13, where we look at background rhythms and 
music interrupt techniques: the techniques used to produce the sound 
in these games. 



YELLOW SUBMARINE VOICE THREE 



B* 

PC SR AC XR YR SP 
,s5F79 33 00 61 00 F6 

. : C0B3 03 9A 04 OB 04 CF 00 00 
. : COBB 00 00 04 OB 03 9A 04 OB 
.:C0C3 03 36 00 00 00 00 03 36 
. : COCB 04 OB 04 OB 03 9A 03 36 
. s CODS 02 B3 00 00 00 00 02 B3 
.:CODB 04 OB 04 OB 03 9A 00 00 
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. : C0E3 00 00 03 9A 04 OB 04 CF 
. : COEB 00 00 00 00 04 OB 03 9A 
. s C0F3 04 OB 03 36 00 00 00 00 
. : COFB 04 OB 04 OB 03 9A 03 36 
. :C103 02 B3 00 00 02 B3 04 OB 
. :C10B 04 OB 03 9A 00 00 00 00 
. :C113 03 9A 04 OB 04 CF 00 00 
. :C11B 00 00 04 OB 03 9A 04 OB 
. :C123 03 36 00 00 00 00 04 OB 
. :C12B 04 OB 03 9A 03 36 02 B3 
. :C133 00 00 00 00 02 B3 04 OB 
. :C13B 04 OB 03 9A 00 00 00 00 
. :C143 03 9A 04 OB 04 CF 00 00 
. :C14B 00 00 04 OB 03 9A 04 OB 
. :C153 03 36 00 00 00 00 04 OB 
. :C15B 04 OB 03 9A 03 36 02 B3 
. :C163 00 00 04 OB 04 OB 03 9A 
. :C16B 00 00 00 00 00 00 00 00 
. :C173 04 CF 04 CF 04 CF 04 CF 
.:C17B 05 66 03 9A 03 9A 03 9A 
.:C1B3 03 9A 03 9A 00 00 03 9A 
. :C18B 03 9A 03 9A 03 9A 03 9A 
.:C193 03 9A 00 00 03 9A 03 36 
.:C19B 03 36 03 36 03 36 03 36 
.:C1A3 00 00 04 CF 04 CF 04 CF 
. :C1AB 04 CF 05 66 03 9A 03 9A 
.:C1B3 03 9A 03 9A 03 9A 00 00 
. :C1BB 03 9A 03 9A 03 9A 03 9A 
.SC1C3 03 9A 03 9A 00 00 03 9A 
. :C1CB 03 36 03 36 03 36 03 36 
.:C1D3 03 36 00 00 04 OB 04 49 
. :C1DB 04 CF 00 00 00 00 04 OB 
.»C1E3 03 9A 04 OB 03 36 00 00 
. jCIEB 00 00 04 OB 04 OB 03 9A 
.«C1F3 03 36 02 B3 00 00 04 OB 
. :C1FB 04 OB 03 9A 00 00 00 00 
. « C203 03 9A 04 OB 04 CF 00 00 
. : C20B 00 00 04 OB 03 9A 04 OB 
.:C213 03 36 00 00 00 00 OB 92 
.:C21B 09 9F OB 71 OB 71 OC DB 
. :C223 OC DB 11 25 OE 6B OB 71 
. :C22B OB 71 OE 6B OB 71 09 9F 
.IC233 OE 6B OC DB OA CD OB 71 
. : C23B 00 00 00 00 00 00 00 00 
. : C243 00 00 00 00 FF FF FF FF 
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YELLOW SUBMARINE VOICE TWO 



B* 

PC BR AC XR YR SP 
. : 5766 33 00 4E 00 F6 

.:C8B3 OE 6B 10 2F 13 3F 00 00 
.:C8BB 00 00 10 2F OE 6B 10 2F 
. s CBC3 OC D8 00 00 00 00 OC D8 
.:C8CB 10 2F 10 2F OE 6B OC D8 
. : C8D3 OA CD 00 00 00 00 OC DB 
. sC8DB 10 2F 10 2F OE 6B 00 00 
.:C8E3 00 00 OE 6B 10 2F 13 3F 
.:CBEB 00 00 00 00 10 2F OE 6B 
.:C8F3 10 2F OC D8 00 00 00 00 
.sCBFB 10 2F 10 2F OE 6B OC DB 
.:C903 OA CD 00 00 00 00 10 2F 
.:C90B 10 2F OE 6B 00 00 00 00 
. sC913 OE 6B 10 2F 13 3F 00 00 
. :C91B 00 00 10 2F OE 6B 10 2F 
.sC923 OC D8 00 00 00 00 10 2F 
. :C92B 10 2F OE 6B OC DB OA CD 
. :C933 00 00 00 00 OC D8 10 2F 
.:C93B 10 2F OE 6B 00 00 00 00 
. :C943 OE 6B 10 2F 13 3F 00 00 
. :C94B 00 00 10 2F OE 6B 10 2F 
.:C953 OC DB 00 00 00 00 10 2F 
.:C95B 10 2F OE 6B OC DB OA CD 
.:C963 00 00 00 00 10 2F 10 2F 
. : C96B OE 6B 00 00 00 00 00 00 
.:C973 13 3F 13 3F 13 3F 13 3F 
. :C97B 15 9A OE 6B OE 6B OE 6B 
. : C9B3 OE 6B OE 6B 00 00 OE 6B 
. : C98B OE 6B OE 6B OE 6B OE 6B 
. : C993 OE 6B 00 00 OE 6B OC D8 
. sC99B OC D8 OC D8 OC DB OC D8 
.sC9A3 00 00 13 3F 13 3F 13 3F 
.:C9AB 13 3F 15 9A OE 6B OE 6B 
.:C9B3 OE 6B OE 6B OE 6B 00 00 
. : C9BB OE 6B OE 6B OE 6B OE 6B 
. :C9C3 OE 6B OE 6B 00 00 OE 6B 
.:C9CB OC DB OC D8 OC DB OC D8 
.:C9D3 OC DB 00 00 10 2F 11 25 
.:C9DB 13 3F 00 00 00 00 10 2F 
.:C9E3 OE 6B 10 2F OC DB 00 00 
. :C9EB 00 00 10 2F 10 2F OE 6B 
. s C9F3 OC DB OA CD 00 00 00 00 
„:C9FB 10 2F 10 2F OE 6B 00 00 
•:CA03 10 2F 11 25 13 3F 00 00 
. :CAOB 00 00 10 2F OE 6B 10 2F 
. sCA13 OC DB 00 00 00 00 00 00 
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:CA1B 00 00 00 00 00 00 00 00 

:CA23 00 00 00 00 00 00 00 00 

:CA2B 00 00 00 00 00 00 00 00 

:CA33 00 O0 00 00 00 00 00 00 

:CA3B 00 00 00 00 00 00 00 00 

:CA43 00 00 00 00 FF FF FF FF 



WHEN I'M 64 VOICE THREE 



B* 

PC SR AC XR YR SP 
. ; 4F53 33 00 3B 00 F6 

. :C0B3 05 66 05 IB 05 66 06 6C 
COBB 00 00 05 66 06 6C 07 35 
C0C3 06 6C 08 92 00 00 00 00 
COCB 08 92 OA CD 08 92 07 35 
C0D3 09 9F 00 00 08 17 08 92 
CODB 09 14 09 9F 08 17 08 92 
C0E3 09 14 09 9F 08 17 07 A3 
COEB 00 00 07 35 00 00 08 17 
C0F3 00 00 08 92 09 14 00 00 
COFB 09 9F 00 00 OA CD OA 31 
C103 09 9F 08 92 00 00 00 00 
C10B 05 66 05 18 05 66 00 00 
CI 13 06 6C 05 66 00 00 06 6C 
CUB 07 35 06 6C 08 92 00 00 
C123 OA CD OA CD 00 00 09 9F 
C12B 00 00 07 35 08 92 00 00 
C133 00 00 00 00 08 92 07 35 
C13B 08 92 00 00 OA 31 09 9F 
C143 00 00 08 92 07 35 08 92 
C14B 00 00 08 17 07 35 00 00 
C153 OA CD OA CD 00 00 OA CD 
C15B OA CD 00 00 08 92 00 00 
CI 63 00 00 00 00 00 00 00 00 
C16B 08 92 07 35 08 92 07 35 
C173 08 92 07 35 08 92 07 35 
C17B 08 92 07 35 08 92 07 35 
C183 08 92 08 92 05 B9 06 6C 
C1BB 06 6C 06 6C 06 6C 06 6C 
C193 06 6C 07 35 07 35 05 66 
C19B 05 66 05 66 05 66 07 35 
C1A3 07 35 07 35 08 17 08 17 
C1AB 08 17 08 92 08 92 08 92 
C1B3 OC D8 OC DB OC D8 OC D8 
C1BB OC D8 OA CD OA CD OA CD 
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„:C1C3 OA CD OA CD OA CD OA CD 
.:C1CB OA CD OE 6B OE 6B OC DB 
. :C1D3 OC DB OA CD OA CD OA CD 
.:C1DB 09 9F 08 92 OB 92 09 9F 
.:C1E3 09 9F 09 9F 09 9F 07 35 
. :C1EB 07 35 07 35 07 35 OB 92 
. sClF3 OB 92 OB 92 07 35 07 35 
.:C1FB 07 35 06 6C 06 6C 06 6C 
. : C203 07 35 07 35 07 35 OB 92 
.:C20B OB 92 00 00 FF 6B 10 2F 



WHEN I 'M 64 VOICE TWO 



B* 

PC SR AC XR YR SP 
. s 4740 33 00 28 00 F6 

. :CBB3 05 66 05 18 05 66 06 6C 
. :C8BB OU 00 05 66 06 6C 07 35 
. s CBC3 06 6C 08 92 00 00 00 00 
.:C8CB 08 92 OA CD 08 92 07 35 
. :C8D3 09 9F 00 00 OB 17 OB 92 
.:C8DB 09 14 09 9F 08 17 08 92 
.:C8E3 09 14 09 9F 08 17 07 A3 
.:C8EB 00 00 07 35 00 00 OB 17 
.:CBF3 00 00 08 92 09 14 00 OO 
.:C8FB 09 9F 00 00 OA CD OA 31 
. : C903 09 9F 08 92 00 00 00 00 
. :C90B 05 66 05 18 05 66 00 00 
. SC913 06 6C 05 66 00 00 06 6C 
.iC91B 07 35 06 6C 08 92 00 OO 
. sC923 OA CD OA CD 00 00 09 9F 
. : C92B 00 00 07 35 08 92 00 00 
. : C933 00 00 00 00 08 92 07 35 
. :C93B 08 92 00 00 OA 31 09 9F 
. s C943 00 00 08 92 07 35 08 92 
.sC94B 00 00 08 17 07 35 00 00 
.:C953 OA CD OA CD 00 00 OA CD 
•:C95B OA CD 00 00 08 92 00 00 
.sC963 00 00 00 00 00 00 00 00 
. : C96B 08 92 07 35 08 92 07 35 
.:C973 OB 92 07 35 08 92 07 35 
.:C97B 08 92 07 35 08 92 07 35 
.SC9B3 08 92 08 92 05 B9 06 6C 
. : C98B 06 6C 06 6C 06 6C 06 6C 
. :C993 06 6C 07 35 07 35 05 66 
.:C99B 05 66 05 66 05 66 07 35 
.:C9A3 07 35 07 35 08 17 08 17 
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:C9AB 08 17 OB 92 08 92 08 92 

8C9B3 OC D8 OC D8 OC 08 OC D8 

•C9BB OC D8 OA CD OA CD OA CD 

:C9C3 OA CD OA CD OA CD OA CD 

SC9CB OA CD OE 6B OE 6B OC D8 

8C9D3 OC D8 OA CD OA CD OA CD 

SC9DB 09 9F 08 92 08 92 09 9F 

:C9E3 09 9F 09 9F 09 9F 07 35 

:C9EB 07 35 07 35 07 35 08 92 

sC9F3 08 92 08 92 07 35 07 35 

C9FB 07 35 06 6C 06 6C 06 6C 

CA03 07 35 07 35 07 35 08 92 

CAOB 08 92 00 00 FF 6B 10 2F 
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13 
Musical Interrupts 

One of the features shared by a number of popular arcade games at 
the moment (Frantic Freddie is a prime example) is that of musical 
interrupts. In other words, while the program is getting on with doing 
one thing, a tune miraculously carries on in the background. The 
purpose of this chapter is to explain, with the aid of a mixture of Basic 
and machine code, how it's done. 

Since this whole thing is based on interrupts, there's obviously got 
to be something somewhere in the 64 that is capable of being 
interrupted. A glance at one of the many memory maps available for 
the machine shows that at locations 788 and 789 decimal (or $0314 
and $0315 hexadecimal), there is something called the hardware 
interrupt vector. This usually contains the numbers 49 and 234 
respectively in the two locations, or $31 and $EA in hexadecimal. This 
tells the 64 that every time this routine is checked, program flow must 
go to location $EA31 , reading the numbers in low-high order as usual. 

Since this routine is checked with great frequency, we can alter it (it 
is only RAM , after all) to jump to a routine of our own. The main thing 
to remember is, having made this change, to ensure that at some point 
in our own routine program flow still branches to that routine at $EA31 , 
which updates the clock, amongst other things, and generally helps 
keep the 64 ticking over. If this call wasn't present, it would be a very 
sick 64 indeed, and your musical career would be at an end. 

Re-routing interrupts 

So the first thing to do is alter the content of those two locations, 
which is really the only purpose of the first block of machine code. 
Set interrupt disable (in other words, we don't want to be disturbed), 
load the accumulator with $50 and store it at location $0314, load the 
accumulator with $C0 and store that at location $0315, clear interrupt 
disable (in other words, carry on interrupting), do nothing for a bit 
and return from this subroutine. 
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The last part of the routine sets everything back to normal. 

MUSIC IN MACHINE CODE PART ONE 

B* 

PC SR AC XR YR SP 
.S87DB 33 00 CO 00 F6 



cooo 


EA 






NOP 




C001 


EA 






NOP 




C002 


EA 






NOP 




C003 


78 






SEI 




C004 


A9 


50 




LDA 


#*50 


C006 


8D 


14 


03 


STA 


*0314 


C009 


A9 


CO 




LDA 


#*C0 


COOB 


8D 


15 


03 


STA 


♦0315 


COOE 


58 






CLI 




COOF 


EA 






NOP 




CO 10 


EA 






NOP 




C011 


60 






RTS 




C012 


78 






SEI 




C013 


A9 


31 




LDA 


#431 


C015 


8D 


14 


03 


STA 


*0314 


coia 


A9 


EA 




LDA 


#$EA 


C01A 


BD 


15 


03 


STA 


*0315 


C01D 


58 






CLI 




C01E 


EA 






NOP 




COIF 


60 






RTS 




C020 


EA 






NOP 




C021 


DE 


DE 


DE 


DEC 


♦DEDE.X 


C024 


DE 


DE 


DE 


DEC 


*DEDE . X 


C027 


DE 


DE 


DE 


DEC 


*DEDE,X 


C02A 


DE 


DE 


DE 


DEC 


*DEDE,X 


C02D 


DE 


DE 


DE 


DEC 


*DEDE,X 


C030 


DE 


DE 


DE 


DEC 


*DEDE , X 


C033 


DE 


DE 


DE 


DEC 


*DEDE,X 


C036 


DE 


DE 


DE 


DEC 


*DEDE,X 


C039 


DE 


DE 


DE 


DEC 


*DEDE,X 


C03C 


DE 


DE 


DE 


DEC 


*DEDE,X 


C03F 


DE 


OA 


09 


DEC 


*090A,X 


C042 


00 






BRK 




C043 


41 


00 




EOR 


(*00.X) 


C045 


00 






BRK 




C046 


00 






BRK 




C047 


00 






BRK 




C048 


00 






BRK 




C049 


00 






BRK 




C04A 


00 






BRK 




C04B 


41 


OO 




EOR 


(*00,X) 


C04D 


00 






BRK 




C04E 


00 






BRK 
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C04F 00 
C050 EA 
C051 EA 
C052 EA 
C053 AD 
C056 F0 
C058 4C 
C05B EA 
C05C CE 
C05F DO 
C061 EA 
C062 EA 
C063 EA 
C064 AD 
C067 8D 
C06A EA 
C06B E6 
C06D DO 
C06F E6 
C071 EA 
C072 AO 
C074 Bl 
C076 C9 
C07B FO 
C07A EA 
C07B EA 
C07C EA 
C07D EA 
C07E AO 
C080 BD 
C083 E6 
C085 DO 
C0B7 E6 
C089 EA 
COBA Bl 
C08C 8D 
COBF AD 
C092 48 
C093 A9 
C095 8D 
C098 68 
C099 8D 
C09C EA 
C09D EA 
C09E 4C 
C0A1 EA 
C0A2 EA 
C0A3 EA 
C0A4 A5 
C0A6 85 
C0A8 A5 
COAA 85 



42 CO 
04 

31 EA 

41 CO 
F7 



40 CO 

41 CO 

FB 
02 
FC 

00 
FB 
FF 
28 



00 

OF D4 
FB 
02 
FC 

FB 

OE D4 
43 CO 

00 
12 D4 

12 D4 



64 C8 



FD 
FB 
FE 
FC 



BRK 

NOP 

NOP 

NOP 

LDA *C042 

BED *C05C 

JMP *EA31 

NOP 

DEC *C041 

BNE *C05B 

NOP 

NOP 

NOP 

LDA *C040 

STA *C041 

NOP 

INC *FB 
BNE *C071 

INC *FC 
NOP 

LDY #*00 

LDA <*FB).Y 

CMP #*FF 

BEQ *C0A2 

NOP 

NOP 

NOP 

NOP 

LDY #*00 

STA *D40F 

INC *FB 

BNE *C089 

INC *FC 

NOP 

LDA (*FB),Y 

STA *D40E 

LDA *C043 

PHA 

LDA #*00 

STA *D412 

PLA 

STA *D412 

NOP 

NOP 

JMP *CB64 

NOP 

NOP 

NOP 

LDA *FD 

STA *FB 

LDA *FE 

STA *FC 
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COAC 4C 


64 


CO 


JMP *C064 


COAF 00 






BRK 


COBO 00 






BRK 


GOBI 00 






BRK 


C0B2 00 






BRK 



MUSIC IN MACHINE CODE PART TWO 



B* 



PC SR AC XR YR BP 
s77B2 33 00 9A 00 F6 



C800 


EA 






NOP 




CB01 


EA 






NOP 




CB02 


EA 






NOP 




CB03 


78 






SEI 




CB04 


A9 


50 




LDA 


#*50 


C806 


8D 


14 


03 


STA 


40314 


CB09 


A9 


CB 




LDA 


#*C8 


CBOB 


BD 


15 


03 


STA 


*0315 


CBOE 


58 






CLI 




CBOF 


EA 






NOP 




C810 


EA 






NOP 




CB11 


60 






RTS 




CB12 


78 






SEI 




C813 


A9 


31 




LDA 


#*31 


CB15 


8D 


14 


03 


STA 


♦0314 


C81B 


A9 


EA 




LDA 


#*EA 


CB1A 


8D 


15 


03 


STA 


♦0315 


CS1D 


58 






CLI 




CB1E 


EA 






NOP 




CB1F 


60 






RTS 




CB20 


EA 






NOP 




CB21 


DE 


DE 


DE 


DEC 


*DEDE,X 


C824 


DE 


DE 


DE 


DEC 


*DEDE,X 


C827 


DE 


DE 


DE 


DEC 


*DEDE,X 


C82A 


DE 


DE 


DE 


DEC 


*DEDE,X 


C82D 


DE 


DE 


DE 


DEC 


*DEDE,X 


C830 


DE 


DE 


DE 


DEC 


*DEDE,X 


C833 


DE 


DE 


DE 


DEC 


*DEDE,X 


CB36 


DE 


DE 


DE 


DEC 


*DEDE,X 


C839 


DE 


DE 


DE 


DEC 


*DEDE,X 


C83C 


DE 


DE 


DE 


DEC 


*DEDE,X 


C83F 


DE 


OA 


OA 


DEC 


*OAOA,X 


C842 


00 






BRK 




C843 


41 


00 




EOR 


<*00,X) 


C845 


00 






BRK 
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CB46 00 BRK 

C847 00 BRK 

C848 00 BRK 

C849 00 BRK 

C84A 00 BRK 

C84B 41 00 EOR (*00,X) 

C84D 00 BRK 

C84E 00 BRK 

C84F 00 BRK 

C850 EA NOP 

C851 EA NOP 

C852 EA NOP 

C853 AD 42 C8 LDA *CS42 

C856 FO 04 BEQ *C85C 

C858 4C 31 EA JMP *EA31 

C85B EA NOP 

C85C CE 41 CB DEC *C841 

CS5F DO F7 BNE *CB5B 

C861 EA NOP 

CB62 EA NOP 

C863 EA NOP 

C864 AD 40 CB LDA *C840 

C867 8D 41 CB ST A *C841 

CB6A EA NOP 

C86B E6 F7 INC *F7 

C86D DO 02 BNE *CB71 

CB6F E6 FB INC *FB 

CB71 EA NOP 

CB72 AO 00 LDY #*00 

CB74 Bl F7 LDA <*F7> .Y 

CB76 C9 FF CMP #*FF 

C87B FO 28 BED *CBA2 

C87A EA NOP 

CB7B EA NOP 

C87C EA NOP 

CB7D EA NOP 

CB7E AO 00 LDY #*00 

C8B0 8D 08 D4 STA *D40B 

C8B3 E6 F7 INC *F7 

C8B5 DO 02 BNE *CB89 

CB87 E6 F8 INC *FB 

C889 EA NOP 

C88A Bl F7 LDA <*F7) .Y 

CB8C 8D 07 D4 STA *D407 

CB8F AD 43 C8 LDA *CB43 

CB92 48 PHA 

C893 A9 00 LDA #*00 

C895 8D OB D4 STA *D40B 
C898 68 PLA 

C899 BD OB D4 STA *D40B 
C89C EA NOP 

CB9D EA NOP 
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CB9E 


4C 


31 


EA 


J MP 


*EA31 


C8A1 


EA 






NOP 




CBA2 


EA 






NOP 




C8A3 


EA 






NOP 




C8A4 


A5 


F9 




LDA 


*F9 


CBA6 


85 


F7 




STA 


*F7 


C8A8 


A5 


FA 




LDA 


*FA 


CBAA 


85 


F8 




STA 


*FB 


C8AC 


4C 


64 


C8 


J MP 


*CB64 


C8AF 


00 






BRK 




C8B0 


00 






BRK 




C8B1 


00 






BRK 




C8B2 


00 






BRK 





What have we achieved by doing this? Well, program flow from the 
hardware interrupt vector no longer goes off to location $EA31 directly, 
it now goes there via location $C050 instead. This is set up by typing 
in SYS49152, and everything is returned to normal by typing 
SYS49171 . However, since we haven't got any code at location $C050, 
there's not a lot of point in typing this just yet. 

Getting going 

Without an assembler, typing all this in is going to be tricky from the 
machine code listings, and so the data program has been included 
as well. This is in fact longer than the machine code equivalent, since 
the listings only show the relevant parts of -the machine code, not the 
gaps in between. But if you haven't got an assembler you'll just have 
to resign yourself to doing a bit more typing. 

BOOSIEBASIC PARTI 



10 F0RI=0T071:READA:B=B+A:P0KE49152+I.AsNEXT 
12 IFB<>lil01THENPRINT"ERR0R IN BLOCK #0"sST0P 
20 F0RI=72T0143sREADA:C=C+A:P0KE49152+I.AsNEXT 
22 IFCOH286THENPRI NT "ERROR IN BLOCK #1":ST0P 
30 F0RI=144T0175sREADA:D=D+A:P0KE49152+I.A:NEXT 
32 IFDO4866THENPRINT"ERR0R IN BLOCK #2 "s STOP 
34 PRINT"PART ONE OF DATA ENTERED CORRECTLY AND 
OW IN PLACE.": END 

30000 REM BLOCK * 

30001 DATA234, 234, 234, 120, 169.80. 141. 20 

30002 DATA3. 169. 192. 141. 21. 3. 88. 234 
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30003 DATA234.96, 120, 169,49, 141,20,3 

30004 DATA169.234. 141 ,21 ,3,88,234,96 

30005 DATA234 , 222 , 222 , 222 , 222 , 222 , 222 , 222 

30006 DATA222 . 222 , 222 . 222 , 222 , 222 , 222 , 222 

30007 DATA222 , 222 , 222 , 222 . 222 , 222 , 222 , 222 

30008 DATA222 . 222 , 222 , 222 , 222 , 222 , 222 , 222 

30009 DATA10,9,0,65,0,0,0,0 

30010 REM BLOCK # 1 

30011 DATAO,0,0,65,0,0,0.0 

30012 DATA234.234,234, 173.66, 192,240,4 

300 1 3 DATA76 , 49 , 234 , 234 , 206 , 65 , 1 92 , 208 

30014 DATA247.234.234.234, 173,64, 192, 141 

30015 DATA65, 192,234,230,251,208,2.230 

30016 DATA252.234, 160.0, 177,251 ,201 ,255 

300 1 7 DATA240 , 40 , 234 , 234 , 234 , 234 , 1 60 , O 

30018 DATA141,15,212,230,251,208,2,230 

30019 DATA252, 234, 177, 251, 141, 14,212,173 

30020 REM BLOCK # 2 

30021 DATA67, 192, 72, 169, 0,141, IB. 212 

30022 DATA104.141,18,212,234,234,76,100 

30023 DAT A200 , 234 , 234 , 234 , 1 65 , 253 , 1 33 . 25 1 

30024 DATA165.254, 133,252,76, 100, 192,0 

READY . 



BOOBIEBASIC PART2 



10 F0RI=0T071 : READAs B=B+A: P0KE51200+I . A: NEXT 
12 IFBO11110THENPRINT"ERR0R IN BLOCK #0":ST0P 
20 F0RI=72TO143:READA:C=C+A:POKE51200+I.A:NEXT 
22 IFCOU280THENPRINT"ERR0R IN BLOCK #l"sSTOP 
30 F0RI=144T0175:READA:D=D+A:P0KE51200+I .A:NEXT 
32 IFDO4835THENPRINT"ERR0R IN BLOCK #2 "s STOP 
40 PR I NT "PART TWO OF DATA ENTERED CORRECTLY AND N 
OW IN PLACE.": END 

30000 REM BLOCK # 

30001 DAT A234, 234, 234, 120. 169.80, 141 .20 

30002 DATA3. 169,200, 141 ,21 ,3,BB,234 

30003 DATA234,96,120,169,49,141,20,3 

30004 DATA169,234,141,21,3.88,234,96 

30005 DAT A234 , 222 , 222 , 222 , 222 , 222 , 222 . 222 

30006 DATA222 . 222 , 222 . 222 . 222 . 222 , 222 , 222 

30007 DATA222 , 222 , 222 , 222 , 222 , 222 , 222 . 222 

30008 DAT A222 . 222 , 222 , 222 , 222 , 222 , 222 , 222 

30009 DATA10, 10,0,65,0,0,0,0 

30010 REM BLOCK # 1 

30011 DATA0,0,0,65,0,0,0,0 

300 1 2 DAT A234 . 234 . 234 , 1 73 , 66 , 20O , 240 . 4 
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300 1 3 DATA76 , 49 , 234 , 234 , 206 , 65 , 200 , 208 

300 1 4 DATA247 . 234 , 234 . 234 . 1 73 , 64 , 200 ,141 

300 1 5 DATA65 , 200 , 234 , 230 , 247 , 208 , 2 , 230 

30016 DAT A248. 234, 160,0, 177,247,201 .255 

300 1 7 DATA240 , 40 , 234 , 234 , 234 , 234 , 1 60 , 

30018 DATA141.8,212,230.247,208,2,230 

30019 DATA248,234,177,247,141,7,212,173 

30020 REM BLOCK * 2 

30021 DATA67, 200, 72, 169, 0,141, 11, 212 

30022 DATA104,141,11,212,234,234.76,49 

30023 DATA234 , 234 , 234 , 234 , 1 65 , 249 , 1 33 , 247 

30024 DATA165,250, 133,248,76, 100,200,0 



The last two blocks of machine code (the hexadecimal dumps) are 
the actual tune that is going to be played: in this case, a simple boogie 
riff, since my musical talent is minimal. Again, these can be typed in 
either with an assembler, or you'll have to do it the long way and work 
out by hand where all the code lies. 



B* 

PC SR AC XR YR SP 
. : 6F9F 33 00 87 00 F6 

. : C0B3 04 49 00 00 04 49 00 00 
. : COBB 04 49 00 00 04 49 00 00 
. s C0C3 04 49 00 00 04 49 00 00 
. s COCB 04 49 00 00 04 49 00 00 
. : C0D3 05 B9 00 00 05 B9 00 00 
. : CODB 05 B9 00 00 05 B9 00 00 
. t C0E3 04 49 00 00 04 49 00 00 
. : COEB 04 49 00 00 04 49 00 00 
. : C0F3 06 6A 00 00 06 6A 00 00 
. s COFB 05 B9 00 00 05 B9 00 00 
.IC103 FF FF FF FF FF FF FF FF 



B* 

PC SR AC XR YR SP 
. : 678C 33 00 74 00 F6 



, SCBB3 04 49 05 67 06 6A 07 35 
, s C8BB 07 A3 07 35 06 6A 05 67 
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. sC8C3 04 49 05 67 06 6A 07 35 
. 8C8CB 07 A3 07 35 06 6A 05 67 
. :C8D3 05 B9 07 45 08 93 09 9F 
. sC8DB 0A 3C 09 9F 08 93 07 45 
. sCBE3 04 49 05 67 06 6A 07 35 
. sCBEB 07 A3 07 35 06 6A 05 67 
. sCBF3 06 6A 08 17 09 9F 08 17 
. SC8FB 05 B9 07 35 08 93 07 35 
. :C903 FF DF FF FF FF FF FF FF 



The final bit of typing is the Basic program headed Music Driver 
Program. Straightforward, since it's all in Basic. The only line needing 
an explanation at the moment, in order that you can get it working 
before we dive into the great explanation of how it all does what it 
does, is line 5. This checks a memory location where part of the 
machine code lies, and if that location doesn't contain a 65, then we 
load the program 'BOOGIETIME' from disk. If you're using a tape 
system, change that eight to a one. 'Boogietime' is just the name I 
gave to the whole of the machine code collection of routines. 

MUSIC DRIVER PROBRAM 

1 S-54272 « POKES+ 1 7 , 255 1 POKES+ 1 9 , 1 42 1 POKES+20 , 1 50 

20 POKES+24 , 1 5 « P0KE492 1 6 , 1 1 P0KE492 1 8 , 1 P0KE492 1 9 , 

65 s P0KE251 , 178 1 P0KE252 , 192 

30 P0KE253 , 1 78 1 P0KE254 ,192 

1 00 POKES+ 1 , 255 I POKES+ 1 2 . 1 42 I P0KE8+ 1 3 , 1 50 

110 P0KE51264,10sP0KE51266,0iP0KE51267,65iP0KE247, 

178:P0KE248,200 

1 20 P0KE249 , 1 78 I P0KE250 . 200 I BYB49 1 52 

If you have got it all typed in, just run the Basic program as a normal 
Basic program, and sit back and listen to the music. Now, the great 
question, how does it all work? 



Basic program explanation 

Taking this line by line, we have: 

Line 10 : Set the variable S to equal the start of the SID chip, and 
set the low order pulse frequency for voice 3 to be maximum, give 
it an attack/decay setting of 142 and a sustain/release setting of 150. 
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Line 20 : Turn the volume up to maximum, and POKE some values 
which the machine code program will later use. 

Line 30 : More values for the machine code program. 

Lines 100-120 : Do the same for voice 2 before activating the routine 
with a call of SYS49152. 

Before running this program, do make sure that the machine code 
routines are resident in memory. Load the machine code programs 
with a 'LOAD "NAME",8,1', perform a CLR and NEW, load (or type 
in) the Basic program, and then RUN it. 



Machine code explanation 

We'll just concentrate on the routine for voice 3 (which lies from 
locations $C050 to $C0AF), as the one for voice 2 is virtually identical. 

First of all, check the content of location $C042 (48218), and if it 
contains a zero then carry on with the program. If not, jump to the 
internal routine at $EA31 and carry on as normal. 

Decrease the content of location $0041 (49217) and if that isn't equal 
to zero, branch back to $C058 and off to $EA31 again. 

Load the accumulator with the content of location $0040 and store 
it at $C041 . These are all the locations that our earlier Basic program 
poked when it was setting everything up. 

Now the next lot of instructions, concerning locations $FB, $FC and 
so on, requires a bit of discussion. The locations used (and the ones 
in block four of the machine code as well) form part of what is referred 
to as page zero of the 64's memory map. It so happens that these 
locations don't do very much, so we can use them ourselves to store 
numbers in. The Basic program earlier poked some values into these 
locations, 178 and 192 for locations $FB and $FC respectively, which 
form, when linked together, the hexadecimal number $C0B2 (since 
178 is $B2 in hexadecimal, 192 is $C0, and we reverse the order of 
the numbers as usual). 

What the rest of this machine code program is doing is to load the 
accumulator with the value to be found in locations $C020 onwards, 
and store that value in the locations that form the high and low order 
frequencies for the note to be played by voice 3. 
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Complicated, eh? This 'offset' machine code instruction is not one of 
the easiest in the world to understand, and many competent machine 
code programmers will probably never use it, which is a shame, since 
it makes this type of program so much easier to write. Without using 
it, the code needed here would be about five times as long as is 
necessary. 

The latter part of the program turns the waveform off and on again 
(as should always be done before playing a note, otherwise you'll 
usually just get silence), jumps to the other routine to play the next 
note for voice 2, and then finally sets everything back to normal and 
goes back to start all over again. 

The end of a tune is indicated by a value $FF, or decimal 255, being 
read, so just make sure that none of your musical notes contain this 
value. 

By altering what is stored in locations $C0B2 and $C8B2 onwards, 
you can change the tune that is being played. Since this code is well 
spaced out, there is room to have something like 900 notes in each 
tune before running out of space, which should be enough to keep 
most people happy. 

Conclusion 

You'll probably only really understand what's going on by typing 
everything in, getting it running, and then experimenting with it to 
see what happens. Do make sure that you save copies of everything 
to tape or disk before attempting to run it, because a simple error in 
entering the code can so easily cause the machine to crash. 

By changing the ADSR settings for the voices, perhaps experimenting 
with different wave forms, different pulse widths, and so on, you 
should be able to produce some excellent background music for your 
programs. Voice one is still available to perform as normal, so you can 
still have various sound effects being played as well as the tune. 

Have fun! 



140 



14 
Adding Musical Commands to 

Basic 

Introduction 

In this chapter we'll be looking at some of the ways in which you can 
enhance the existing Basic in your Commodore 64. Although the 
methods used in this chapter are by no means the only ways in which 
this can be done, they at least have the virtue of working! 

A number of routines are also presented here as well, and these could 
readily be incorporated into one complete package, instead of 
consisting of a lot of separate little programs as they do now. 

Having read this chapter you should be in a position to devise some 
new commands of your own, and insert these into whatever spare 
memory space you see fit. Here most of the routines have been written 
to start at location 49152 (or $C000), since this is a conveniently empty 
block of memory on the Commodore 64 at power on. 

The commands are presented in the form of machine code 
disassemblies, in order to give you a better chance of understanding 
how they work, and occasionally Basic loader programs for those of 
you unfortunate enough not to possess an assembler. 

If you've got the tape that accompanies this book, then there won't 
be any problems when it comes to entering the code. However, if your 
wallet or fingers aren't up to it, then you can still use the commands 
by converting the numbers as shown in the listings, and hand POKEing 
them into the machine. 

Either way, you'll still be able to use them. However, an 
assembler/disassembler is a powerful tool for the machine code 
programmer, whether beginner or advanced, and I strongly 
recommend that one way or another you get a program of that sort. 
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For now, let's take a look at what Commodore Basic has and hasn't 
got. 

Commodore's Basic 

The deficiencies inherent in Commodore Basic are well known. But 
it's interesting to trace these deficiencies back through time to the very 
early Commodore machines. 

The first Commodore PET, as well as conning complete with its own 
cassette deck and monitor, and having a paltry 8K of RAM (and also 
costing some £625 when it first appeared back in 19791), had what 
Commodore themselves termed Basic 1 . 

As a Basic language it was fine at the time, but there were a number 
of things missing from it. For example, there was no way of accessing 
the machine code monitor, as it didn't have one built in. 

A utility to overcome this soon came on the market, but this took up 
precious space from the meagre amount of RAM that was there to 
start with, and so Commodore followers had to wait a couple of years 
before Basic 2 appeared. 



Basic 2 

When Basic 2 did appear it caused instant confusion among the 
Commodore ranks, since some people were calling it Basic 2, and 
others referred to it as Basic 3. Seemingly the so-called 'Basic 2' never 
appeared, and although this particular version of the language was 
always called Basic 2, theoretically it should have been referred to as 
Basic 3. 

Whatever number you gave it, it was a great improvement over its 
predecessor, and did have access to a machine code monitor. 
Moreover, the ROM installed was now capable of looking after disk 
drives, something that the earlier machines could not do. 

Time went by, Basic 4 appeared, and for a long time it was rumoured 
that there was to be a fifth version of the language as well, with all 
the features that existing ones had lacked, of which more in a moment. 

However, at the time of writing Basic 5 (or something closely resem- 
bling it) is only available on the new Plus Four and Commodore 16, 
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so for us 64 owners ... 

The version of Basic that they've installed in the 64 is that which we 
referred to earlier as Basic 2/3, although Commodore have apparently 
now decided that it should be called Basic 2, and indeed this is what 
the machine greets you with when you turn it on. 

However, not only have Commodore taken a retrograde step and 
installed an old version of their popular Basic language, but they've 
also managed to take out a great deal of what was already in there. 
So we see no machine code monitor - hence the need for programs 
such as Extramon. 

What we are left with instead is an extremely flexible memory 
management system, but a very poor Basic with which to manage 
it. To look after all this requires a lot of work, and to understand it 
all properly requires even more! 



Basic advantages 

The version of Basic in the Commodore 64 is a pretty standard version 
of what is usually referred to as Microsoft Basic. 

This is based on the original Beginners All-purpose Symbolic Instruction 
Code, from which Basic takes its name. This language was devised 
a number of years ago, and the cracks are now beginning to show, 
but for a beginner it is still possibly the easiest of languages to learn. 

Apart from the interface to machine code, which is not good, the 
commands you have at your disposal are not too difficult to 
understand. Because of the great similarity between Basic words and 
English words, most beginners can soon start writing programs in 
Basic. 



And disadvantages 

However, most beginners also soon come to realise that the version 
of Basic as supplied by Commodore is sadly lacking in a number of 
departments. 

The concepts of structured programming, the computer flavour of the 
month, are impossible to simulate on the 64, and there is a distinct 
lack of such commands as PRINT AT, PRINT USING, and so on. 

143 



In particular, when it comes to using graphics and sound, the number 
of commands is strictly limited to two : PEEK and POKE. No other 
commands exist to cope with the vast number of PEEKs and POKEs 
needed to set up a high resolution screen and draw things on it, or 
to play a few musical notes, or do just about anything with either 
graphics or sound. 

If you want to make music, or display various images on the screen, 
it has all got to be done the long way, by using a laborious series of 
POKEs. Given that this version of Basic is so appalling in these particular 
departments, it is no wonder that people go to great lengths to try 
to improve it. There are now many packages on the market that have 
set out to try to improve on the language that we are originally offered, 
in a variety of different ways. 

Whether they succeed in their chosen aims is, of course, a completely 
different matter, but what they all have in common is that they are 
adding commands to the existing version of Basic, and through those 
commands are seeking to make life easier for the person using the 
machine. 

The rest of this chapter will be devoted to showing you two ways in 
which commands could be added, as well as giving you a number of 
routines to try out for yourself. 

But first, the concepts involved. 

Adding commands: the concepts 

There are many different ways in which you can add commands to 
Commodore's existing command set. Commands can be added either 
as words or symbols, or indeed we could also use the function keys: 
re-define them to be able to accept existing Basic keywords, and then 
put our new words (or symbols) in their place. 

We'll be looking at the two simplest options in this chapter, namely 
defining various symbols to act as commands, rather than adding new 
words, and using a direct SYStem call to interpret a new command. 

These are certainly easier than trying to add new command words to 
Basic, as this involves altering a lot more things than we are going 
to do, and for the first-time user can seem incredibly complicated. So 
complicated in fact that you probably wouldn't even want to try it! 
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Still, what we are going to do is fairly straightforward, and shouldn't 
present any major difficulties. 



Getting a character 

Anything that you type on to the screen is interpreted and executed 
by the Commodore 64 as soon as you press the return key. Once this 
key has been pressed there are a number of routines built into the 64 
which will act upon everything that you typed in, and depending on 
precisely what you typed a number of things will happen. 

You can generate a syntax error, and a subroutine exists within the 
Basic ROM to print out a suitable message and return to await your 
next input. Since it is in ROM (it starts at location $AF08) we can't 
alter it, but there's nothing to stop us copying this ROM into RAM 
and altering it there, so that SYNTAX ERROR becomes something 
a lot more meaningful. Or a lot more rude, if you're feeling in that kind 
of mood! 

You could have entered a line of a program, in which case you won't 
get any error messages (or for that matter any other messages) coming 
back at all, but a great many pointers inside the machine will have 
been altered to cope with the new line. 

You might have entered a direct command, and in this case the 
machine will just execute whatever it was that you typed in. 



Character get routine 

How does the machine know what to do? In other words, how does 
it interpret what you've typed in? Understanding this is the key to 
generating our own commands, because if we can intercept the Basic 
routine that looks after all the commands and alter it, we are then well 
on the way to adding our own commands into the machine. 

The machine knows what to do because of the ROM that's built into 
it, but there must be a routine somewhere in the machine that looks 
at what you've typed in and thinks 'ahah!', and then does (or attempts 
to do) whatever you've told it. 

There is indeed such a routine, which lives in locations $0073 to $008A 
(or decimal locations 1 15 to 138), and this is usually referred to as the 
CHARGET routine, or character get. 
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This routine gets a character that you've typed in and acts upon that 
character. 

The routine looks, in its original form, like this: 



CHARACTER GET ROUTINE BEFORE 



B# 

PC SR AC XR YR SP 
. : 8FEB 33 00 D3 00 F6 



0073 


E6 


7A 


INC 


$7A 


0075 


DO 


02 


BNE 


*0079 


0077 


E6 


7B 


INC 


*7B 


0079 


AD 


31 02 


LDA 


*0231 


007C 


C9 


3A 


CMP 


#*3A 


007E 


BO 


OA 


BCS 


*008A 


0080 


C9 


20 


CMP 


#$20 


00B2 


FO 


EF 


BEQ 


*0073 


0084 


38 




SEC 




0085 


E9 


30 


SBC 


#*30 


0087 


38 




SEC 




0088 


E9 


DO 


SBC 


#*D0 


OOSA 


60 




RTS 
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What we are going to do is alter that routine so that it no longer behaves 
in quite the same way. 

As it stands at the moment, it interprets everything in the following 
way: 



Locations $73-$77 

Locations $79-$7B 
Locations $7C-$7F 

Locations $80-$83 

Locations $84-$8A 



update the pointer in memory 
locations $7A and $7B. 

this is the pointer. 

if it's a colon or greater, 
then end. 

if it's a space, then loop 
back to start again. 

set flags for character type, 
and return from subroutine. 



Comments 

This routine is the key to adding commands to Basic, since by altering 
it we can make it jump to some code of our own which will check 
for a special character, and if that character has been entered then 
do something! If we find that a special character has not been typed, 
then it's back to the routine again and carry on as normal. 

We'll see later on how we can actually load a program into the 
computer which, when executed, alters the routine to behave in the 
way we want. 

Instead, a couple of JSRs (jumps to subroutines) will be incorporated 
in it, and when we've finished with it it will look like this: 
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AND AFTER! 



B* 



PC SR AC XR YR SP 
; 7FC5 33 OO AD OO F6 



0073 


E6 


7A 




INC 


*7A 


0075 


DO 


02 




BNE 


$0079 


0077 


E6 


7B 




INC 


*7B 


0079 


AD 


IE 


02 


LDA 


*021E 


007C 


C9 


3A 




CMP 


#*3A 


007E 


FO 


OA 




BEQ 


*008A 


0080 


C9 


20 




CMP 


#*20 


0082 


FO 


EF 




BEQ 


*0073 


0084 


20 


00 


C2 


JSR 


*C200 


0087 


20 


00 


CI 


JSR 


*C100 


008A 


60 






RTS 
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It would be wise, at this point, to make an effort to get an assembler 
up and loaded into the computer, since this will make life a lot easier 
from now on. Without it we can still proceed with a lot of POKEs, 
but in order to see precisely what is happening, an assembler is a great 
help. 



Altering the CHARGET routine 

When everything is running normally, on pressing the Return key the 
system will come out of ROM into this routine to fetch the next 
character of Basic text, then trundle back into ROM again to ponder 
on its next move. 

What will happen now is that the system will come out of ROM, to 
our changed subroutine, and when it hits the first JSR command it 
will jump to the routine sitting at location $C200 onwards. This will 
determine whether or not we're going to be interpreting a special 
command, and if we are jump somewhere else to process it. 

If we're not, then the system goes back to the altered CHARGET 
routine, and finds that it now has to make yet another jump, this time 
to location $C100. This is simply a direct copy of what used to exist 
in the portion of CHARGET that we have changed, so that execution 
can continue as normal in the event of a special character not being 
found. 

After that, it returns into ROM again to work out what will happen next. 

The program to alter the CHARGET routine sits at locations $C10B 
onwards, and together with the direct replacement for the altered parts, 
which starts at location $C100, it all looks like this : 

B* 

PC SR AC XR YR SP 
. : 8FEB 33 00 D3 00 F6 



CI 00 


C9 


3A 


CMP 


#*3A 


C102 


BO 


06 


BCS 


*C10A 


CI 04 


38 




SEC 




C105 


E9 


30 


SBC 


#*30 


CI 07 


38 




SEC 




C108 


E9 


DO 


SBC 


#*D0 


C10A 


60 




RTS 




C10B 


A9 


20 


LDA 


#*20 


C10D 


85 


84 


STA 


*84 
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CI OF 85 87 STA *87 

Clll A9 OO LDA #*00 

CI 13 85 85 STA *85 

C115 85 88 STA *88 

CI 17 A9 C2 LDA #*C2 

CI 19 85 86 STA *86 

CUB A9 CI LDA #*C1 

CUD 85 89 STA *89 

CI IF A9 FO LDA #*FO 

C121 85 7E STA *7E 

CI 23 A9 04 LDA #*04 

CI 25 85 7A STA #7A 

CI 27 85 7B STA *7B 



The next routine that we need is the one to separate the extra code 
and the processing of that code from ordinary Basic. In this routine 
we check the current character being processed against a table stored 
at locations $C300 onwards, and if we find what we're looking for, 
branch to the appropriate subroutine by reading the most significant 
byte and least significant byte of the subroutine address from a table 
which is stored immediately after the character data. 

B# 

PC SR AC XR YR SP 
.;371A 33 00 02 OO F6 

C200 08 PHP 

C201 86 04 STX *04 

C203 A2 04 LDX #$04 

C205 DD 00 C3 CMP *C300,X 

C208 FO 07 BEQ *C211 

C20A CA DEX 

C20B lO F8 BPL *C205 

C20D A6 04 LDX *04 

C20F 28 PLP 

C210 60 RTS 

C211 BD 06 C3 LDA *C306,X 

C214 8D IE C2 STA *C21E 

C217 BD 08 C3 LDA *C308,X 

C21A 8D IF C2 STA *C21F 

C21D 20 OO CO JSR *C000 

C220 20 74 A4 JSR *A474 



To explain what's happening, the program first of all saves the cur- 
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rent status register on to the stack, and the current value held in the 
X register into location $0004 in the event of not finding a special 
character. 

If that is the case, then everything is read back into the appropriate 
registers and it's off to the CHARGET routine again. 



Finding special characters 

However, if a special character is found then we branch out to location 
$C21 1 where we get the least significant byte and the most significant 
byte from our table. These are then stored at the appropriate registers, 
and then the program branches off to the subroutine to carry out the 
command. 

The characters and their LSBs and MSBs look like this: 



B* 

PC SR AC XR YR SP 
. ; 26F4 33 00 DC 00 F6 



C300 5F 




??? 




C301 21 


21 


AND 


C*21,X) 


C303 21 


21 


AND 


(*21,X) 


C305 00 




BRK 




C306 00 




BRK 




C307 CO 


CO 


CPY 


#*C0 



This may not look very sensible as a disassembly, but it's the data that 
we're after, not the annotations. 

The only thing we need know is a routine to execute, and in this case 
we've used an OLD routine. This can be used without the rest of this 
code by just typing in SYS491 52, and it will then recover any program 
lost after a NEW command had been issued. 

On the other hand, there's something infinitely more satisfying about 
seeing your own code being executed at the press of a key, rather 
than typing in boring old SYS commands all the time. 
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B* 

PC SR AC XR YR SP 
. ; 6F9F 33 00 87 00 F6 



cooo 


A5 


2B 


LDA 


*2B 


C002 


A4 


2C 


LDY 


*2C 


C004 


85 


22 


STA 


*22 


C006 


84 


23 


STY 


*23 


C008 


AO 


03 


LDY 


#*03 


COOA 


C8 




I NY 




COOB 


Bl 


22 


LDA 


(*22) ,Y 


COOD 


DO 


FB 


BNE 


*C00A 


COOF 


C8 




I NY 




COlO 


98 




TYA 




Cpll 


18 




CLC 




C012 


65 


22 


ADC 


422 


C014 


AO 


OO 


LDY 


#*00 


C016 


91 


2B 


STA 


(*2B) ,Y 


C018 


A5 


23 


LDA 


*23 


C01A 


69 


OO 


ADC 


#*oo 


COiC 


C8 




INY 




C01D 


91 


2B 


STA 


(*2B) ,Y 


COIF 


88 




DEY 




C020 


A2 


03 


LDX 


#*03 


C022 


E6 


22 


INC 


$22 


C024 


DO 


02 


BNE 


*C028 


C026 


E6 


23 


INC 


*23 


C028 


Bl 


22 


LDA 


<*22) ,Y 


C02A 


DO 


F4 


BNE 


*C020 


C02C 


CA 




DEX 




C02D 


DO 


F3 


BNE 


*C022 


C02F 


A5 


22 


LDA 


*22 


C031 


69 


02 


ADC 


#*02 


C033 


85 


2D 


STA 


*2D 


C035 


A5 


23 


LDA 


*23 


C037 


6V 


00 


ADC 


#*00 


C039 


85 


2E 


STA 


*2E 


C03B 


60 




RTS 





Now that we've got everything together, it only remains to run the 
program by going to the various parts of it, and then, just by pressing 
the left arrow key and return, we can instantly recover any program 
that may have been lost due to an accidental NEW. 

To add yet more commands, you'll need to store more data for charac- 
ters, and more data for LSBs and MSBs at locations $C3000 onwards 
(or anywhere else for that matter, as long as the program is pointed 
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to the correct location!). The data for the characters is just the ASCII 
code for each character. 

If, however, your forte is typing words rather than symbols, the 
following program shows how you might use the word BAK to get 
back a program, rather than typing in the left-arrow key. 



B* 

PC SR AC XR YR SP 
.;8D55 31 72 9F 00 F6 



C200 


08 






PHP 




C201 


86 


04 




STX 


*04 


C203 


A2 


OO 




LDX 


#*oo 


C205 


DD 


OO 


C3 


CMP 


*C300 , X 


C208 


FO 


26 




BED 


*C230 


C20A 


CA 






DEX 




C20B 


lO 


F8 




BPL 


*C205 


C20D 


A6 


04 




LDX 


*04 


C20F 


28 






PLP 




C210 


60 






RTS 




C211 


BD 


06 


C3 


LDA 


*C306 , X 


C214 


8D 


IE 


C2 


STA 


*C21E 


C217 


BD 


08 


C3 


LDA 


*C308,X 


C21A 


8D 


IF 


C2 


STA 


*C21F 


C21D 


20 


CO 


FF 


JSR 


*FFCO 


C220 


E6 


C9 




INC 


*C9 


C222 


DO 


02 




BNE 


*C226 


C224 


E6 


CA 




INC 


*CA 


C226 


28 






PLP 




C227 


A2 


OO 




LDX 


#*00 


C229 


Al 


C9 




LDA 


($C9,X> 


C22B 


A6 


04 




LDX 


*04 


C22D 


60 






RTS 




C22E 


OO 






BRK 




C22F 


00 






BRK 




C230 


E6 


7A 




INC 


*7A 


C232 


DO 


02 




BNE 


*C236 


C234 


E6 


7B 




INC 


*7B 


C236 


A2 


OO 




LDX 


#*00 


C238 


Al 


7A 




LDA 


(*7A,X) 


C23A 


38 






SEC 




C23B 


E9 


41 




SBC 


#$41 


C23D 


FO 


03 




BED 


*C242 


C23F 


4C 


5A 


C2 


JMP 


*C25A 


C242 


E6 


7A 




INC 


*7A 


C244 


DO 


02 




BNE 


*C248 


C246 


E6 


7B 




INC 


*7B 


C248 


A2 


OO 




LDX 


#*oo 


C24A 


Al 


7A 




LDA 


<*7A,X> 
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C24C 38 SEC 

C24D E9 4B SBC #*4B 

C24F FO 03 BEQ *C254 

C251 4C OB AF JMP *AFOB 

C254 20 OO CO JSR *C000 

C257 20 74 A4 JSR *A474 



This, however, is not the only way of adding commands to Basic. We 
mentioned earlier the possibilities of doing a direct SYStem call, and 
that is indeed what we will look at next. 



System calling 

This method of adding commands arose from an article in Commodore 
Computing International magazine, published in October 1983. The 
routine in there was to aid in designing your own characters, and the 
idea behind it was so interesting that it had to be pursued further. For 
the benefit of anyone who didn't see that original article, here is the 
listing that started it all off: 



10 F0RI=OT071sREADA:B<=B+A:P0KE49152+I,AsNEXT 
12 IFBO8515THENPRINT"ERR0R IN BLOCK #0"iBTOP 
20 F0RI»72T0143«READAiC-C+A>P0KE49152+I,AiNEXT 
22 IFCO7732THENPRINT"ERR0R IN BLOCK #1"|ST0P 
30 F0RI=144TO215:READA:D=D+AiP0KE49152+I,AiNEXT 
32 IFDO1027BTHENPRINT"ERR0R IN BLOCK #2" I STOP 
40 FOR 1=21 6T02B7 ! READA : E=E+ A « P0KE49 1 52+ 1 . A s NE X T 
42 IFEO5944THENPRINT"ERR0R IN BLOCK #3" s STOP 
50 F0RI-288T0335: READAs F=F+As P0KE49152+I . As NEXT 
52 IFFO5B34THENPRINT"ERR0R IN BLOCK #4": STOP 
60 PR I NT "DATA ENTERED CORRECTLY AND CODE NOW IN 
LACE.": END 

30000 REM BLOCK # 

30001 DATA169 . , 133. 87 , 169 , 208 , 133 , 88 

30002 DATA169,0, 133,89, 169, 176, 133,90 

30003 DATA173, 14,220.41 .254. 141 , 14,220 

30004 DATA165, 1 ,41 ,251 , 133, 1 , 160,0 

30005 DATA177,B7, 145.89,24, 165.87, 105 

30006 DATA1 , 133,87, 133, 89, 144,241 ,230 

30007 DATA88 , 230 , 90 , 1 65 , 88 , 20 1 , 224 , 208 

30008 DATA231,165,1,9,4,133,1,173 

30009 DATA14,220,9. 1 , 141 , 14,220, 173 

30010 REM BLOCK tt 1 

30011 DATA2, 221, 9, 3, 141. 2, 221, 173 
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30012 DATAO, 221, 41, 252, 9, 1,141,0 

30013 DATA221 , 169. 128, 141 , 136,2 , 133,56 

30014 DATA133,52, 169, 12, 141 ,24,208,32 

30015 DATA68. 229, 96, 0,0, 0,0,0 

30016 DATAO, 0,0, 0,0, 0,0,0 

30017 DATAO, 0,0, 0,127,0,33,0 

30018 DAT A 1 60 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

300 1 9 D AT A255 . 255 , 255 , 255 , 255 , 255 , 255 , 255 

30020 REM BLOCK # 2 

3002 1 DATA255 , 255 . 255 , 255 , 255 , 255 . 255 , 255 

30022 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

30023 DATAO, 0,0. 32, 0,0, 0,0 

30024 DATAO, 0,0, 0,0, 0,0. 242 

30025 DATAO. 0,0, 0,0, 0,0,0 

30026 DATAO, 0,0, 0,0, 0,0,0 

30027 DATA255 , 1 27 , 255 , 255 , 255 , 255 , 255 , 247 

30028 DAT A25 1 , 255 , 255 , 255 , 239 , 25 1 , 255 , 223 

30029 DAT A255 , 255 , 25 1 , 255 , 255 , 255 , 255 . 255 

30030 REM BLOCK # 3 

3003 1 DATA255 , 255 , 255 , 255 , 255 , 255 , 25 1 , 255 

30032 DATAO, 0,8, 0,0, 0,0,0 

30033 DATAO, 0,0, 0,0, 0,0,0 

30034 DATAO, 0,0, 0,0, 0,0,0 

30035 DATAO, 0,0, 0,127,0,33,0 

30036 DATA32,253, 174,32,235, 183, 132,91 

30037 DATA133.92, 160,3, 165,20, 133,88 

30038 DATA165,21,133,89,134,90,24,6 

30039 DATA8B , 3B , 89 , 1 36 , 208 , 248 , 1 69 , 1 76 

30040 REM BLOCK # 4 

30041 DATA24, 101, 89, 133, 89, 201, 191, 144 

30042 DATA3,76,72, 178, 169,0, 133,87 

30043 DATA165.90, 164,87, 145,88.162,0 

30044 DATA164,91,165,92,32,241,183,134 

30045 DAT A90 , 230 , 87 , 1 65 , 87 , 20 1 , 7 , 208 

30046 DATA231,165,90,164,B7,145,B8,96 



although it didn't look quite like this in the magazine. The idea is fairly 
simple. There are two machine code routines, one starting at location 
$C000, and one at location $C100. 



B* 



PC SR AC XR YR SP 
I97FE 33 00 E6 00 F6 



COOO A9 00 
C002 85 57 
C004 A9 DO 
C006 85 58 



LDA #*00 
STA *57 
LDA #*D0 
STA *5S 
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COOS A9 00 


LDA #*00 


COOA 85 59 


STA *59 


COOC A9 BO 


LDA #*B0 


COOE 85 5A 


STA *5A 


C010 AD OE DC 


LDA *DCOE 


C013 29 FE 


AND #*FE 


C015 8D OE DC 


STA *DCOE 


C018 A5 01 


LDA *01 


C01A 29 FB 


AND #*FB 


C01C 85 01 


STA *01 


C01E AO 00 


LDY #*00 


C020 Bl 57 


LDA (*57) ,Y 


C022 91 59 


STA (*59),Y 


C024 18 


CLC 


C025 A5 57 


LDA *57 


C027 69 01 


ADC #*01 


C029 85 57 


STA *57 


C02B 85 59 


STA *59 


C02D 90 Fl 


BCC *C020 


C02F E6 58 


INC *58 


C031 E6 5A 


INC *5A 


C033 A5 58 


LDA *58 


C035 C9 EO 


CMP #*E0 


C037 DO E7 


BNE *C020 


C039 A5 01 


LDA $01 


C03B 09 04 


DRA #*04 


C03D 85 01 


STA *01 


C03F AD OE DC 


LDA *DCOE 


C042 09 01 


DRA #*01 


C044 8D OE DC 


STA *DCOE 


C047 AD 02 DD 


LDA *DD02 


C04A 09 03 


ORA #*03 


C04C 8D 02 DD 


STA *DD02 


C04F AD 00 DD 


LDA *DDOO 


C052 29 FC 


AND #*FC 


C054 09 01 


ORA #*01 


C056 BD 00 DD 


STA *DDOO 


C059 A9 80 


LDA #*80 


C05B 8D 88 02 


STA *02B8 


C05E 85 38 


STA *38 


C060 85 34 


STA *34 


C062 A9 OC 


LDA #*0C 


C064 8D 18 DO 


STA *D018 


C067 20 44 E5 


JSR *E544 


C06A 60 


RTS 


C100 20 FD AE 


JSR *AEFD 


C103 20 EB B7 


JSR *B7EB 


C106 84 5B 


STY *5B 


C108 85 5C 


STA *5C 


C10A AO 03 


LDY #*03 
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C10C A5 14 LDA *14 

ClOE 85 58 ST A *58 

CllO A5 15 LDA *15 

CI 12 85 59 STA *59 

CI 14 86 5A STX *5A 

CI 16 18 CLC 

CI 17 06 58 ASL *5B 

CI 19 26 59 ROL *59 

CUB 88 DEY 

C11C DO F8 BNE *C116 

CUE A9 BO LDA #*B0 

C120 18 CLC 

C121 65 59 ADC *59 

CI 23 85 59 STA *59 

CI 25 C9 BF CMP #*BF 

C127 90 03 BCC *C12C 

CI 29 4C 48 B2 J MP *B248 

C12C A9 OO LDA #*00 

C12E 85 57 STA *57 

CI 30 A5 5A LDA *5A 

CI 32 A4 57 LDY *57 

C134 91 58 STA (*58>,Y 

C136 A2 OO LDX #*00 

CI 38 A4 5B LDY *5B 

C13A A5 5C LDA *5C 

C13C 20 Fl B7 JSR *B7F1 

C13F 86 5A STX *5A 

C141 E6 57 INC *57 

CI 43 A5 57 LDA *57 

CI 45 C9 07 CMP #*07 

C147 DO E7 BNE #C130 

CI 49 A5 5A LDA *5A 

C14B A4 57 LDY *57 

C14D 91 58 STA (*58) .Y 

C14F 60 RTS 



To go into user-defined character mode, enter SYS49152. This 
switches in bank 2 of memory, and copies all the character ROM into 
RAM. Having done this, you are left with about 29K of memory to 
play with, although one or two things have moved about a little. For 
instance, sprite data pointers now live at locations 33784 to 33791 , 
sprite data must be stored from locations 33792- to 40959, and the 
screen memory map starts at location 32768 (remetaaber that one, old 
Commodore owners?). 

To then re-define a character, the second machine code routine must 
be used in the following way: 
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SYS 49408, A, 1,2,3,4,5,6,7,8 

where A is the character number to be re-defined, and the numbers 
1 to 8 are the eight values for each row of the 8 by 8 matrix that makes 
up a character. For example: 

SYS 49408,0,24,24,12,28,8,22,28,50 

will re-define the '@' key to resemble a little man. 

However, it is the approach rather than the program that interests us 
here. When writing musical programs in Basic, it soon becomes 
apparent that an awful lot of POKEs have to be performed before 
anything happens. How nice it would be to have one SYStem call that 
does everything: designates the voice, the attack, decay, sustain and 
release, the waveform, the pulse rate if necessary, and finally the low 
and high values of the note to be played. 

The following machine code routine is the result of this idea: 



B* 



PC SR AC XR YR SP 
:SFEB 33 00 D3 00 F6 



cooo 


20 


FD 


AE 


JSR 


*AEFD 


C003 


20 


EB 


B7 


JSR 


*B7EB 


C006 


84 


SB 




STY 


*5B 


C008 


85 


5C 




STA 


*5C 


C00A 


AO 


Ol 




LDY 


#*01 


C00C 


A5 


14 




LDA 


*14 


COOE 


85 


58 




STA 


*58 


C010 


A5 


15 




LDA 


*15 


C012 


85 


59 




STA 


*59 


C014 


86 


5A 




STX 


*5A 


C016 


8E 


Ol 


04 


STX 


*0401 


C019 


A5 


58 




LDA 


*58 


C01B 


8D 


00 


04 


STA 


*0400 


C01E 


88 






DEY 




COIF 


DO 


FB 




BNE 


*C019 


C021 


A9 


BO 




LDA 


#*B0 


C023 


18 






CLC 




C024 


65 


59 




ADC 


*59 


C026 


85 


59 




STA 


*59 
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C028 C9 BF 




CMP #*BF 


C02A 90 03 




BCC *C02F 


C02C 4C 48 1 


B2 


JMP *B248 


C02F A9 00 




LDA #*00 


C031 85 57 




STA *57 


C033 A5 5A 




LDA *5A 


C035 A4 57 




LDY *57 


C037 A2 00 




LDX #*00 


C039 A4 5B 




LDY *5B 


C03B A5 5C 




LDA *5C 


C03D 20 Fl 


B7 


JSP. *B7F1 


C040 A4 57 




LDY *57 


C042 86 5A 




STX *5A 


C044 A5 5A 




LDA *5A 


C046 99 02 


04 


STA *0402,Y 


C049 E6 57 




INC *57 


C04B EA 




NOP 


C04C EA 




NOP 


C04D EA 




NOP 


C04E EA 




NOP 


C04F EA 




NOP 


C050 A5 57 




LDA *57 


C052 C9 06 




CMP #*06 


C054 DO DD 




BNE *C033 


C056 AD 00 


04 


LDA *0400 


C059 C9 00 




CMP #*00 


C05B FO 12 




BEQ *C06F 


C05D C9 01 




CMP #*01 


C05F FO 07 




BEQ *C06B 


C061 C9 02 




CMP #*02 


C063 FO 08 




BEQ *C06D 


C065 4C 48 


B2 


JMP *B248 


C068 69 05 




ADC #*05 


C06A 4C 6F 


CO 


JMP *C06F 


C06D 69 OB 




ADC #*0B 


C06F BD OA 


04 


STA *040A 


C072 AE OA 


04 


LDX *040A 


C07S A9 00 




LDA #*O0 


C077 9D 04 


D4 


STA *D404,X 


C07A AD 01 


04 


LDA 40401 


C07D 9D 05 


D4 


STA *D405,X 


C080 AD 02 


04 


LDA *0402 


C083 9D 06 


D4 


STA *D406,X 


C086 AD 03 


04 


LDA *0403 


C0B9 9D 04 


D4 


STA *D404,X 


C08C AD 04 


04 


LDA *0404 


C08F 9D 02 


D4 


STA *D402,X 


C092 AD 05 


04 


LDA *0405 


C095 9D 03 


D4 


STA *D403,X 


C098 AD 06 


04 


LDA *0406 


C09B 9D 00 


D4 


STA *D400,X 


C09E AD 07 


04 


LDA *0407 
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C0A1 9D 01 D4 STA *D401.X 

C0A4 A9 OF LDA «*0F 

C0A6 9D IB D4 STA *D418,X 

C0A9 EA NOP 

COAA 60 RTS 

COAB 00 BRK 



Or, if you prefer Basic loaders: 



COMMAND ADDER IN BASIC 



10 F0RI=0T071sREADAtB»B+A»P0KE49152+I.A»NEXT 

12 IFBO8249THENPRINT"ERR0R IN BLOCK #0":STOP 

20 F0RI=72T0143s READAs C«=C+As P0KE49152+I , Ac NEXT 

22 IFCO772BTHENPRINT"ERR0R IN BLOCK #1":ST0P 

30 F0RI=144T0170sREADA:D=D+A:P0KE49152+I,AiNEXT 

32 IFDO27BlTHENPRINT"ERR0R IN BLOCK #2": STOP 

34 PR I NT "DATA ENTERED CORRECTLY AND CODE NOW IN P 

LACE.": END 

30000 REM BLOCK # 

30001 DATA32, 253, 174.32,235. 183. 132.91 

30002 DATA133,92,160,1,165,20,133,88 

30003 DATA165,21 , 133,89, 134,90, 142, 1 

30004 DATA4, 165, 8B, 141 ,0,4, 136,208 

30005 DATA248, 169, 176,24, 101 ,89, 133,89 

30006 DATA201 , 191 , 144,3,76,72, 178, 169 

30007 DATAO, 133,87, 165,90, 164,87, 162 

30008 DATAO, 164, 91, 165, 92, 32, 241, 183 

30009 DATA164,B7, 134,90, 165,90, 153,2 

30010 REM BLOCK # 1 

300 1 1 DATA4 , 230 , 87 , 234 , 234 , 234 , 234 , 234 

30012 DATA165,B7,201,6,20B,221,173,0 

30013 DATA4, 201 ,0,240, 18,201 ,1,240 

30014 DATA7,201 ,2,240,8,76,72,178 

30015 DATA105,5,76, 1 11 , 192, 105, 1 1 , 141 

30016 DATA10,4, 174, 10,4, 169,0,157 

30017 DATA4.212, 173, 1,4, 157,5,212 

30018 DATA173,2,4, 157,6,212, 173,3 

30019 DATA4, 157,4,212, 173,4,4, 157 

30020 REM BLOCK « 2 

30021 DATA2, 212. 173,5,4, 157,3,212 

30022 DATA173,6,4, 157,0,212, 173,7 

30023 DATA4, 157, 1,212, 169, 15, 157, 24 

30024 DAT A2 12, 234, 96 

READY. 
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The command accepts the following syntax: 

SYS491 52, A, 1,2,3,4,5,6,7 

where A is the voice number (nought, one or two), 1 is the setting 
for the attack/decay cycle, 2 is the setting for the sustain/release cycle, 
3 is the waveform, 4 is the low order setting for the pulse width if 
necessary and 5 is the high order, and 6 and 7 are the low and high 
order values for the frequency of the note to be played. 

The following command: 

SYS491 52,0,9,0,65,255,0,73,4 

will set everything and play the note middle C for voice 0. Any attempt 
to use a voice number greater than 2 will result in an error, and similarly 
any attempt to use a value for any of the other settings of greater than 
255 will also result in an error. 

TRAIN DEMO 



10 FQRI-10TQ1STEP-1 

20 BYS49152, 0,9.0. 129,0.0. 10. 10 

30 F0RK>1T0100#I 

40 NEXTK.I 

50 F0RI=1T050 

60 SYS49152. 0,9,0, 129.0.0, 10. 10 

70 F0RK«=0T0100: NEXTK.I 

READY. 



SIREN DEMO 

10 F0RI-100T050BTEP-1 

20 SYS49152,0,9,0,65.10.255.10.I 

30 F0RK=1T01G 

40 NEXTK,I 

50 F0RI-50T0100 

60 SYS49152,0,9,0,65,10,255,10,I 

70 F0RK=0T010: NEXTK.I 

SO GOTO 10 

READY. 
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EVERY COP IN THE STATES! 



10 F0RI-100T050STEP-1 

20 SYS49152.0,9.0,65, 10,255,10. I 

25 SYS49152, 1,9, 0,65, 10, 255, 10, 150-1 

26 SYS49152,2, 10, 10, 17,0,0, 10, 100 
30 FORK- 1 TO 10 

40 NEXTK.I 

50 F0RI-50T0100 

60 SYS49152,0,9,0,65,10,255,10,I 

65 SYS49152, 1,9, 0,65, 10, 255, 10, 150-1 

66 SYS49152,2,10,10,17,0,0,10,100 
70 F0RK-0T010sNEXTK,I 

SO 60T01O 

READY. 



How does all this work? Let's take the machine code listing. If you 
know about machine code, you'll be able to work it out for yourself, 
and if you don't, no explanation of how it works will be sufficient. 
So we're going to concentrate on how the program accepts the various 
parameters, how it determines how many parameters to accept, where 
to store them, and how to use them afterwards. 

The routine has been written so that the parameters to be input after 
the SYStem call are stored on the screen. Type in a command, and 
you'll see them changing. The numbers 1,2,3, etc. in our earlier 
example are stored in the first seven screen locations. The code at 
$C016, $C01B, and $C046 takes care of this. Alter those values, and 
you can store the variables anywhere you like. Seven parameters are 
accepted after the initial number because of locations $C052 and 
$C053: change the 06, and you change the number of parameters to 
be input. Knowing where they are all stored, it is then a simple matter 
to retrieve those values and use them accordingly, which is what the 
code from $C072 onwards does. 

Datamaker 

As a finale, you may be interested in this program, which turns the 
machine code programs into collections of data statements. That is 
all it does, since the early lines of each data program have to be added 
by hand, but it may save you some time. 
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100 INPUT"START ADDRESS" : S: P0KEB30.S/256: INPUT"END 

ADDRESS" s E: IFE<STHEN100 
130 P0KEB2B.0sP0KEB29.0:P0KE831,0:Z=INT((E-S)/8>:P 
0KE829.Z 

1 450 I FPEEK ( 829 ) *8+7< PEEK ( 828 ) *8THEN 1 600 

1 45 1 S=PEEK ( 830 ) 8 S»S*256+PEEK ( S3 1 ) *72 

1455 PRINT" CCI_R,3CD3": PEEK (828) +30000: "REM BLOCK # 

":PEEK(B2B)/10 

1460 P0KEB28.PEEK<B2B)+l!F0RI =OTOB 

1 470 PR I NTPEEK < 828 ) +30000 " DATA " t 

1480 F0RJ-0T07 

1490 BB=PEEK(S+I*8+J) 

1500 BB*-RIGHT*(STR*(BB) ,LEN(STR* <BB) ) -1 > 

1510 PRINTBB*;" ,"s 

1520 NEXT J 

1530 PRINT"CCI_3 ": P0KE828, PEEK (828) +1 

1540 NEXT I 

1560 PR I NT "GOTO 1450 [HOME 3" 

1570 POKE 198,128F0RI-0TO11!P0KE631+I,13iNEXTIjP0K 

EB31 , PEEK (831 ) +1 » END 

1600 PRINT"CCLR,3CD3":10OiPRINT130:PRINT1450:PRINT 

1451 i PRINT1455iPRINT1460»PRINT1470:PRINT1480: PRINT 

14901 PRINT1500JPRINT1510 

1610 Q0T01700 

1620 PRINT" CCLR,3CD3" 1520i PRINT1530«PRINT1540bPRIN 

T15608PRINT1570tPRINT1600:PRINT1610!PRINT1620xPRIN 

T1700sPRINT1710:PRINT1630 

1630 GOTO 1700 

1700 PR I NT "GOTO 1620 CHOME 3" 

1710 POKE 19B,12!F0RI-0T01isP0KE631+I,13iNEXTIiEND 



Conclusion 

These are just two ways of adding commands to Basic, and obviously 
there are more. However, these are two of the simplest, and using 
the techniques discussed it should be easy enough for you to produce 
your own additions to Basic. 

Why use seven POKE commands when one SYStem call will do? Have 
fun with Basic. 
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15 
Technical Overview 



This chapter is for anyone who wants to get the most out of the sound 
capabilities of the 64. We've added commands to Basic, we've 
intercepted Basic routines to give us continuous interrupt-driven music, 
and now, finally, comes the chance to see what the chip itself can do. 

The 6581 is one of the most versatile and powerful of the musical chips 
currently available in any home computer, and can even compete with 
full blown musical synthesisers costing many times the price, as the 
following specifications show : 

3 tone oscillators, or voices, each with a range of to 4 KHz 

4 waveforms per voice, covering triangle, sawtooth, variable pulse and 
noise. 

3 amplitude modulators, with a range of 48 decibels. 

3 envelope generators, featuring exponential response, an attack rate 
in the range 2ms to 8 seconds, decay rate in the range 6ms to 24s, 
sustain level from up to peak volume, and a release rate from 6 ms 
to 24s. 

Oscillator synchronization. 

Ring modulation. 

Programmable filtering, featuring a cut off range of 30 Hz to 12 KHz, 
a 12 decibel octave roll off, low pass, high pass, band pass and notch 
outputs, and a variable resonance. 

A master volume control (the one failing of this chip! It should have 
had separate volume controls) 

2 A to D POT interfaces 

A random number modulation generator, and 

External audio output, allowing you to link the 6581 up to an external 
speaker perhaps, or play it through a guitar and then into a speaker, 
or even link up a couple of 6581s together. 
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6581 Pin Configuration 

The 6581 pin configuration looks like this : 



63S1 


PIN CONFIGURATION 


CflPlA 


1 2S 


VcW 


cnpie 


2 27 


AUDIO OUT 


CAP2PI 


3 26 


EXT IN 


CfiPiS 
RES 


4»!=:S5«=5 X25 

5 S I D 24 


Vcc 
POT X 


FVTJ* 


5 23 
7 22 


POT V 
07 


Us 


8 21 


Do 


R0 


S 20 


DS 


fll 


10 IS 


04 


1=12 


11 IS 


03 


R3 


12 17 


D2 


R4 


13 1* 


Dl 


GND 


14 15 


DO 
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More General Description 

Here we'll outline in more human terms some of the capabilities of 
the 6581, and introduce a few terms that will be useful throughout 
the rest of this chapter. 

The 6581 consists of three synthesiser voices, which can be used either 
independently or in conjunction with one another, in order to create 
some amazing sounds. 

Each voice consists of a tone oscillator and waveform generator, an 
envelope generator and an amplitude modulator. 

The tone oscillator controls the pitch of each voice, whilst each voice 
can also choose from one of four different waveforms at the tone, 
or pitch, selected, with complicated harmonic structure possible with 
each waveform. 

The amplitude modulator, in conjunction with the envelope generator, 
produces the overall quality of the noise heard, and can be used to 
re-create the sounds of many musical instruments. 

A programmable filter is also provided to enable complex tone colours 
to be produced: true synthesis on a home computer! 

The 6581 allows the 6510 to read the changing output of the third 
oscillator and third envelope generator. 

This can be used to create a variety of effects, including vibrato and 
frequency/filter sweeps. We've covered a few simple examples of this 
earlier. 

This third oscillator can also act as a random number generator. 

The two A to D converters are provided for linking the 6581 up to a 
number of potentiometers, for a variety of uses: perhaps as controls 
for some kind of external musical synthesiser. 

In addition, we can link several 6581s up together, or mix them up 
into other external audio equipment. 

The rest of this chaptergoes into more detail on all of these features. 
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6581 Block Diagram 
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6581 Control Register 
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6581 Register Descriptions 

We'll now spend a few pages going through each register in detail, 
using location 54272 as our base register, or register 0, starting with : 

Voice 1 : Frequency Low/Frequency High 

These two registers combine together to form a 16 bit number which 

linearly controls the frequency of voice 1 . 

This frequency is determined by the following equation : 

Fout = (Fn *Fclk/ 1677721 6) Hz 

where Fn is the 16 bit number in the frequency registers, and Fclk is 
the system clock applied to the 02 input, pin 6. 

For our standard 1 MHz clock, this formula comes down to : 



168 



Fout = (Fn * 0.05961) Hz 

Later on in this chapter we'll give you a much more complete table 
of musical notes, frequencies and values of Fn than were given earlier 
in the chapter on sound on the 64. 

These values are all meant to be taken with a pinch of salt, and can 
be varied slightly as you, the listener, see fit. 

It should also be noted here that the frequency resolution of the 6581 
is such that sweeping from note to note on an even tempered scale 
is possible, without any noticeable frequency steps. 

Pulse Width Low and High 

These two registers combine together to form a 12 bit number, which 
linearly controls the pulse width of the pulse waveform of voice one. 
Bits 4 to 7 of Pulse high are not used. 

This pulse width is determined by the following equation : 

PWout = (PWn/40.95) % 

where PWn is the 12 bit number in the PW registers. 

Again, the pulse width resolution is such that the width can be 
smoothly swept along without any noticeable stepping effects. 

For constant pulse widths, a value of or 4095 will produce a constant 
DC output, whilst a value of 2048 will produce a perfect square wave. 

Obviously, these features cannot be used without having previously 
selected the pulse waveform for voice 1 . 



Control Register 

The most important register of them all, containing eight control bits 
with the following functions : 



Gate - Bit 

This controls the envelope generator for voice 1, and when this bit 
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is set to a 'V the envelope generator is triggered and the 
Attack/ Decay/ Sustain (or ADS) cycle is begun. 

When this bit is reset to a zero, then the release part of the cycle begins. 

This envelope generator controls the amplitude of voice 1 as it appears 
at the audio output, and must therefore be triggered in order for the 
selected output of voice 1 to be audible. 



Sync - Bit 1 

When set to a '1 ' this synchronizes the fundamental frequency of voice 
1 with the fundamental frequency of voice 3, producing what are 
known as 'hard sync' effects. 

Varying the frequency of voice 1 with respect to voice 3 produces a 
wide range of complex harmonic structures from voice 1 at the 
frequency of voice 3. 

In order for this to take place, obviously voice 3 must be set to some 
frequency or other, preferably lower than that of voice 1 , but naturally 
higher than zero. 

Nothing else connected with voice 3 has any effect on Sync. 



Ring Mod - Bit 2 

When set to a '1' this bit replaces the triangle waveform of voice 1 
with a ring modulation combination of voices 1 and 3 : obviously, one 
must previously have selected the waveform of voice 1 to be a triangle 
one! 

Varying the frequency of voice 1 with respect to voice 3 produces a 
wide range of non-harmonic overtone structures. 

Again, nothing else connected with voice 3 has any effect on Ring 
Mod.' 



Test - Bit 3 

This bit, when set to a T, resets and holds voice 1 at zero, until the 
bit is cleared. 
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The noise waveform of voice 1 is also reset, and if a pulse wave has 
been selected this is held at a DC level. 

Normally only used for testing purposes, and hence the name, it can 
be used to synchronize voice 1 to external events. 



Triangle - Bit 4 

When this is set to a T, the triangle waveform is selected for voice 
1 . This is low in harmonics, and thus produces a mellow, reed-like note. 



Sawtooth - Bit 5 

When this is set to a T, the sawtooth waveform is selected for voice 
1. This is rich in harmonics, and thus produces a brassy, trumpet-like 
note. 



Pulse - Bit 6 

When this is set to a '1' the pulse waveform is selected for voice 1. 
The harmonic content of this waveform can be varied by altering the 
pulse width registers, producing a wide variaty of different musical 
(and not so musical) sounds. 

Sweeping through the pulse widths can produce some dynamic 
effects, and can add a sense of motion to the sound. 

Rapidly altering from one pulse width to another can also be used to 
produce some interesting harmonic effects. 



Noise - Bit 7 

When set to a T, the noise waveform is selected for voice 1. This 
is a totally random signal which changes at the frequency of voice 
1, and thus is of most use in generating purely sound 'effects', like 
missiles taking off, engines revving, or vast explosions. 

The sound of waves lapping on the beach, or of a cymbal being rapidly 
hit, can be achieved by sweeping through the different frequencies. 

One of the above waveforms must be selected in order for voice 1 to 
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produce any audible sound, although that sound can be turned off 
without un-selecting a waveform, as the voice at the end is a funcion 
of the envelope generator only. 

Also, you cannot add more than one waveform together to produce 
something totally different from the above four. 

You are welcome to try, but the most likely result is that voice 1 will 
be switched off, and can only be reset by the Test bit, or by setting 
pin 5 to low, or '0'. 

Attack/ Decay 

Bits 4 to 7 of this register, known as ATKO to ATK3, select an attack 
rate from to 15 for the voice 1 envelope generator. The Attack rate 
determines how fast the output of voice 1 rises from zero to peak 
amplitude, when the envelope generator is triggered. 

Bits to 3 of this register, known as DCYO to DCY3, allow you to 
select a decay rate from 1 to 15 for the envelope generator. The decay 
cycle comes after the attack cycle, and determines how quickly the 
output falls from the peak amplitude to the selected sustain level. 



Sustain/ Release 

Bits 4 to 7 of this register, known as STNO to STN3, allow you to select 
a sustain level from to 1 5 for the envelope generator for voice 1 . 
The sustain cycle follows the decay cycle, and determines at what 
amplitude voice 1 will remain as long as the trigger bit remains set. 
This is all done on a linear basis, so, for example, a sustain level of 
8 would cause voice 1 to sustain at exactly half the peak amplitude 
reached by the attack cycle. 

Bits to 3 of this register, known as RLSO to RLS3, allow you to select 
a release rate from to 15 for the envelope generator of voice 1 . The 
release cycle follows the sustain cycle, and determines how rapidly 
the amplitude of voice 1 will fall from the sustain level to zero amplitude. 

The 16 release rates are identical to the decay rates, shown below. 
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Envelope Rates 

The cycling of this envelope generator can be altered at any point in 
the cycie by the gate bit, as the generator can be gated and released 
at any time, without restriction. 

So, if the gate bit is set whilst half way through an attack cycle, the 
release cycle will begin immediately, and if the gate is reset again whilst 
the release cycle is still continuing, another attack cycle will start from 
whatever amplitude had been reached during release. 

As you might imagine, this gets a bit hairy after a while, but does allow 
quite complex effects to be achieved. 



Envelope Rates 






Value 


Attack Rate 


Decay/ Release Rate 


Dec Hex 


(Time/Cycle) 


(Time/Cycle) 






ms 


ms 








2 


6 


1 


1 


8 


24 


2 


2 


16 


48 


3 


3 


24 


72 


4 


4 


38 


114 


5 


5 


56 


168 


6 


6 


68 


204 


7 


7 


80 


240 


8 


8 


100 


300 


9 


9 


250 


750 


10 


A 


500 


1 .5 sec 


11 


B 


800 


2.4 sec 


12 


C 


1 sec 


3 sec 


13 


D 


3 sec 


9 sec 


14 


E 


5 sec 


15 sec 


15 


F 


8 sec 


24 sec 
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Voice 2 and 3 

Voice 2 

The registers $07 to $0D control voice 2, and function in the same 
way as registers $00 to $06 for voice 1, with the following two 
exceptions : 

1) When SYNC is selected, it synchronizes voice 2 
with voice 1 . 

2) When RING MOD is selected, it replaces the triangle 
output of voice 2 with the ring modulated combination 
of voices 2 and 1 . 

Voice 3 

The registers $0E to $14 control voice 3, and function in the same way 
as registers $00 to $06 for voice 1 , with the following two exceptions : 

1 ) When SYNC is selected, it synchronizes voice 3 with 
voice 2. 

2) When RING MOD is selected, it replaces the triangle 
output of voice 3 with the ring modulated combination 
of voices 3 and 2. 

Filtering 



Freq Lo/Freq Hi - registers $15 and $16. 

As bits 3 to 7 of register $15 are not used, these two combine together 
to form an 1 1 bit number which linearly controls the cutoff, or centre 
frequency of the programmable filter. The approximate cutoff 
frequency is obtained from : 

FCout = ((6.6E-8 + FCn * 1.28E-81/C) Hz 

where FCn is the 1 1 bit number in the above two registers and C is 
the value of the two filter capacitors connected to pins 1 to 4, or in 
our case 2200 picoFarads. 
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This gives an approximate filter range of 30 Hz to 12 KHz, according 
to : 

FCout = (30 + FCn * 5.8) Hz 

This frequency response can be altered for specific applications, but 
I don't recommend you doing it! 

Res/Filt - Register $17 

Bits 4 to 7 of this register control the resonance of the filter, where 
resonance emphasises components of the frequency at the cutoff 
frequency of the filter, thus causing a sharper sound. 

There are 16 resonance settings ranging linearly from no resonance, 
when this is set to zero, or maximum resonance, when it is set to 15. 

Bits to 3 determine which signals will be routed through the filter : 

Bit 0: When this is set to zero, voice 1 appears directly at the audio 
output, and there is no filtering effect. When set to 1, voice 1 is 
processed through the filter, and the harmonic content of voice 1 is 
altered according to the selected filter parameters. 

Bit 1 : Ditto for voice 2 

Bit 2: Ditto for voice 3 

Bit 3: Ditto for external audio input on pin 26. 

Mode/Vol - Register $18 

We've already seen this one as the master volume control, but it 
actually does a whole lot more. 

Bits to 3 are the actual volume settings, and allow you to select an 
overall volume ranging from (silence) to 15 (maximum). 

Bits 4 through 7 select various filter modes and output options : 

Bit 4 - When set to a '1', the low pass output of the filter is selected 
and sent to the audio output. For a given filter input signal, all 
components of the frequency below the filter cut off are passed 
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through unaltered, whilst all those above the cutoff are attenuated 
at a rate of 12 decibels per octave. 

Bit 5 - As above for band pass output, but attenuation above and below 
the cutoff is at a rate of 6 decibels per octave. 

Bit 6 - As above for high pass output, and attenuation below the cutoff 
is back to 12 decibels per octave. 

Bit 7 - When this is set to '1' the output of voice 3 is disconnected 
from the direct audio path, so setting voice 3 to bypass the filter and 
setting 3 OFF to a '1' stops voice 3 from reaching the audio output. 
Thus voice 3 can be used for modulation purposes without any 
extraneous noises coming out. 

These filter modes are additive, in that one can combine a number 
of different modes at the same time. Playing with, and understanding, 
these frequency alterations is the key to getting the most out of the 
6581. 



Miscellaneous Information 

POTX - Register $19 

This allows the processor to read the position of the potentiometer 
connected to POTX, or pin 24, with a range of at minimum resistance 
to 255 at maximum resistance. This value is constantly being updated. 

POTY - Register $1A 

As above, for POTY, at pin 23. 

OSC 3/ Random - Register $1B 

This allows the processor to read the upper 8 output bits of oscillator 
three, and it is worth experimenting to read the numbers generated 
when producing the various waveforms. Noise produces a series of 
random numbers, and thus this can also be used as a random number 
generator in preference to RND. 

Its chief purpose is to act as a modulation generator, by combining 
the numbers produced with something like the filter frequency 
registers, or the pulse width, to produce a virtually unlimited range 
of effects. 
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Voice 3 should be set to zero when using this mode. 

ENV 3 - Register $1C 

As above, but for the voice 3 envelope generator, and this is usually 
used in conjunction with the frequency filter. 

The voice 3 envelope generator must be gated in order to produce 
any effects from this process. 

6581 Pin Description 

CAP1A.CAP1B (Pins 1&2)/CAP2A,CAP2B (Pins 3&4) 

These four pins are used to connect the two integrating capacitors 
required by the programmable filter. C1 connects pins 1 and 2, and 
C2 connects pins 3 and 4. 

The maximum cutoff frequency FCmax is given by : 

FCmax = 2.6E-5 / C 

where C is the capacitor value, in our case equal to 2200 pico farads. 

RES - Pin 5 

This is the reset control for the 6581, and is connected to the reset 
line of the 6510. 

02 - Pin 6. 

This is the master clock for the 6581, and all oscillation frequencies 
and envelope rates are referenced from this clock. It also controls data 
transfer from the 6581 to the 6510, 

R/W - Pin 7 

This controls the direction of data transfer between the 6581 to the 
6510. When this line is set to a '1' the 6510 can read from the selected 
6581 register, and when set to a '0' the 6510 can write to the selected 
6581 register. Thus this pin is connected to the system read/write line. 
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Note the read/write capabilities of the various registers as described 
earlier. 



CS - Pin 8 

This is a low-active chip select which controls data transfer between 
the 6581 and the 6510. Data transfer can only take place when this 
is set to low, and indeed when R/W is high, we get the 6510 reading 
from the 6581, and when R/W is low we get the 6510 transferring 
data to the 6581. 



A0 - A4 - Pins 9 to 13 

These inputs are used to select one of the 29 registers in the 6581 . 
Sharp-eyed readers will observe that we have in fact the capacity to 
select any one of 32 registers. However, three are not used (perhaps 
they were once intended to be seperate volume controls ?). PEEKing 
these registers will only return a 0. 



GND - Pin 14 

This is simply the ground line. 

DO - D7 - Pins 15 to 22. 

These 8 bi-directional lines are used in the transfer of data between 
the 6581 and the 6510. When writing data, the data buffers remain 
in the off state, and in read mode they are on, when the 6581 supplies 
data to the 6510. 

POTY, POTX - Pins 23 and 24 

These are the inputs to the A/D convenors used to digitize the position 
of any potentiometers connected up to the system. 

Vcc - Pin 25 

This is just used to minimise noise, and is linked up to the power supply 
with a 5 volt line. 



178 



EXT IN - Pin 26 

This analog input allows external audio signals to be mixed with the 
audio output of the 6581, or processed through the filter. This can 
be fed to mix outputs of multiple 6581s by daisy chaining them. The 
maximum number of chips that can be linked together in this way is 
limited only by the amount of noise and distortion allowable at the 
final output. 

AUDIO OUT- Pin 27 

This is the line that carries the final audio output of the 6581 , including 
the voices, filtering, and any external output. The output level of all 
the output is selected by the master volume control, register 24. 

Vdd - Pin 28 

Again this is there to minimise noise, and requires a 12V line. 

6581 Characteristics 



ABSOLUTE MAXIMUM RATINGS 

RftTINQ 
Supp Iv V© !**«• 
Supp \y Vo lt*.«t* 
In»u* V©lt».*» <*n*."lC9> 
Inpu-e V© !"?**• <di9it*l> 
Op*p**in*i T*mp*r*Tur-» 
Stor**» T*m(w«r*tur'» 



SYMBOL 


VALUE 


UNITS 


vod 


-0.3 to »i7 


VDC 


Vet 


-0.3 to -7 


VDC 


Vin*. 


-3.3 to -17 


VDC 


Vind 


-0.3 to ♦? 


VDC 


T» 


"to *70 


*C 


T**m 


-55 to -158 


'c 



ci *c~r*lCPtL CHRRRCTHRIS 


TICKS' fVdd"l2£S?i VDC. 


Svri&OL 


PK VO 

hin 


C. T»- 

TVP 




I.IHIT5 


In»u-c Hi<?n vo lt#.«» 
input L.P"' vclt*?* 
input ■_**k«'.«3* Ur-rtnt 




vih 

VI t 
Ixn 


- 


- 


VCC 


VOC 

vnc 

url 


"Thr*«— it*T.* C0i-r> 


Vin*ft.4-2.* VOO 


lxsi 


— 


" 


10 




Output rtign vo IT*?* 


< D0-D7 1 VtC"m in, 

T 1 r\*.rtm?>r*(* r jAI 


Voh 


2.4 


" 


v'cc-e.7 


VOC 


Output Low Vo 1t*9* 


<;De*-07 ; vcc*m*x * 


v©; 


GNO 


~ 


e.t 


VOC 


uutput n i =jn wjrrtnx 


(,£»«»-&? ; S.ourcin« , 
Voh-2.4 VDO 


I oh 


£6S 








Output l.Ou> Currtnx 


CDiet-D7; SinUin?' 

Urti««.A worvi 


lol 


3.2 






mH 


Input C*p*tit*nc* 


<P0TX. P0TV> 


Cin 

Vp©T 


" 


Vtt/S 


10 


VDC 




r&riTX. POTV") 
CEXT IH> 


I pot 
Rin 


10* 


1 SC- 


- 


KOttms 


nuctio Inpur Vo lT*«# 


<EXT 'IN> 


Vin 


1' 


6.5 


©.3 

3 


VftC 


ftudi Output Vo lT*g* 


■-riUDIO OUTj. 1 KOnrn 
On* Voic* on I 


Votrt 


5.7 
1.8 


6 
S.5 

1.5 


£.3 
2. >? 


VDC 
VAC 
VftC 




TVdd> 


Idd 


- 


2* 


'i»j5 


run 


-rt»t»r ^.ijfsw lv Currtnt 


<v«> 


Ice 


- 


,-Li 






» ol .i»r 1 ST l p*.t- i on 


':tot*. 1> 


Pd 


— 


(ft&tf 
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6581 Timing 



Read Cycle 



02 



AO-AI+ 
cs 



00-D7 



y 



£ 



|TftH 



^ 



* 
-Tacc- 



"^^m. 



-Tf 



TAH 



xz 



T 



iiau 



*Tacc is 
measured 
froi-i the 

LATEST 

OCCORIMG 

OF 

0*, C5, 
AO-Alj. 
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Equal Tempered Musical Scale Values 



MUSICAL 


FREQ 


DSC Fn 


□SC Fn 


MUSICAL 


FREO 


OSC Fn 


OSC Fn 


NOTE 


(Hz) 


(DECIMAL) 


(HEX) 


NOTE 


(Hz) 


(DECIMAL) 


(HEX) 


O 


CO 


16.35 


274 


0112 


48 


C4 


261.63 


4389 


1125 


1 


CO* 


17.32 


291 


0123 


49 


C4« 


277. 18 


4650 


122A 


2 


DO 


18.35 


308 


0134 


50 


D4 


293.66 


4927 


133F 


3 


D0# 


19.44 


326 


0146 


51 


D4« 


311.13 


5220 


1464 


4 


EO 


20.60 


346 


015A 


52 


E4 


329.63 


5530 


159A 


5 


FO 


21. B3 


366 


016E 


53 


F4 


349.23 


5859 


16E3 


6 


F0# 


23. 12 


38B 


0184 


54 


F4# 


370.00 


6207 


1B3F 


7 


80 


24.50 


411 


01BB 


55 


84 


392.00 


6577 


19B1 


B 


GO* 


25.96 


435 


01B3 


56 


84* 


415.30 


6968 


1B38 


9 


AO 


27.50 


461 


01CD 


57 


A4 


440.00 


7382 


1CD6 


10 


AO# 


29.14 


4B9 


01E9 


58 


A4* 


466. 16 


7821 


1E8D 


11 


BO 


30.87 


518 


0206 


59 


B4 


493.88 


8286 


205E 


12 


CI 


32.70 


549 


0225 


60 


C5 


523.25 


8779 


224B 


13 


CI* 


34.65 


5B1 


0245 


61 


C5« 


554.37 


9301 


2455 


14 


Dl 


36.71 


616 


0268 


62 


D5 


5B7.33 


9854 


267E 


15 


Dltt 


38.89 


652 


028C 


63 


D5* 


622.25 


10440 


2SC8 


16 


El 


41.20 


691 


02B3 


64 


E5 


659.26 


11060 


2B34 


17 


Fl 


43.65 


732 


02DC 


65 


F5 


698.46 


11718 


2DC6 


18 


Fl# 


46.25 


776 


0308 


66 


F5# 


740.00 


12415 


307F 


19 


81 


49.00 


822 


0336 


67 


85 


7B3.99 


13153 


3361 


20 


81* 


51.91 


B71 


0367 


6B 


85* 


830.61 


13935 


366F 


21 


Al 


55.00 


923 


039B 


69 


A5 


B80.00 


14764 


39AC 


22 


Al« 


58.27 


97B 


03D2 


70 


A5« 


932.33 


15642 


3D1A 


23 


Bl 


61.74 


1036 


040C 


71 


B5 


987.77 


16572 


40BC 


24 


C2 


65.41 


1097 


0449 


72 


C6 


1046.50 


17557 


4495 


25 


C2* 


69.30 


1163 


04BB 


73 


C6« 


1108.73 


18601 


48A9 


26 


D2 


73.42 


1232 


04D0 


74 


D6 


1174.66 


19708 


4CFC 


27 


D2* 


77. 7B 


1305 


0519 


75 


D6« 


1244.51 


20B97 


518F 


28 


E2 


B2.41 


1383 


0567 


76 


E6 


1318.51 


22121 


5669 


29 


F2 


87.31 


1465 


05B9 


77 


F6 


1396.91 


23436 


5BBC 


30 


F2* 


92.50 


1552 


0610 


78 


F6* 


1479.98 


24830 


60FE 


31 


82 


98.00 


1644 


066C 


79 


86 


1567.98 


26306 


66C2 


32 


82* 


103. 83 


1742 


06CE 


80 


86* 


1661.22 


27871 


6CDF 


33 


A2 


110.00 


1845 


0735 


81 


A6 


1760.00 


29528 


7358 


34 


A2* 


116.54 


1955 


07A3 


82 


A6« 


1B64.6S 


31284 


7A34 


35 


B2 


123.47 


2071 


0817 


83 


B6 


1975.53 


33144 


8178 


36 


C3 


130.81 


2195 


0893 


84 


C7 


2093.00 


35115 


892B 


37 


C3* 


138. 59 


2325 


0915 


85 


C7« 


2217.46 


37203 


9153 


38 


D3 


146.83 


2463 


099F 


B6 


D7 


2349.32 


39415 


99F7 


39 


D3* 


155. 56 


2610 


0A32 


87 


D7* 


2489.01 


41759 


A31F 


40 


E3 


164.81 


2765 


OACD 


88 


E7 


2637.02 


44242 


ACD2 


41 


F3 


174.61 


2930 


0872 


89 


F7 


2793.83 


46873 


B719 


42 


F3# 


185.00 


3104 


0C20 


90 


F7* 


2959. 95 


49660 


C1FC 


43 


83 


196.00 


3288 


0CD8 


91 


87 


3135.96 


52613 


CD85 


44 


83* 


207. 65 


34B4 


0D9C 


92 


87* 


3322.44 


55741 


D9BD 


45 


A3 


220. 00 


3691 


0E6B 


93 


A7 


3520.00 


59056 


E6B0 


46 


A3* 


233.08 


3910 


0F46 


94 


A7* 


3729.31 


62567 


F467 


47 


B3 


246. 94 


4143 


102F 


95 


B7 


3951.06 


•66288 


•1F2F0 



The table above provides a simple and quick method for generating 
the equal tempered scale. However, it is not very efficient on memory, 
since it requires 192 bytes just for the table. It would be better to 
determine each note algorithmically, using the fact that each note in 
an octave is half the frequency of that note in the next octave, which 
would bring us down to a table entry of just 12 entries rather than 92 
as featured here. 

Having done this, we could then specify each note by a single byte. 
Four bits could specify which of the 12 notes we wish to play in the 
octave (tones and semi-tones), and three bits to specify which octave 
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we wish to play in. In other words, use two separate nibbles for each 
note. 

6581 Envelope Generators 

The four-part envelope generator used in the 6581 , the Attack Decay 
Sustain Release (ASDR) one, is one of the easiest of the generators 
to program, as well as giving some of the best results of any 
electronically generated musical sound. 

By appropriate selection of the various envelope parameters the 
simulation of many popular musical instruments is possible, particularly 
of percussion instruments, or those where the sound is sustained for 
an appreciable period. 

For instance, the piano. This immediately reaches full volume as soon 
as the key is struck, and then begins to die away again equally quickly. 
As long as the key is held down the decay rate is rather slow, but if 
the key is released, then decay is immediate. 

The ADSR diagram might look something like this : 

Attack : 02ms 
Decay: 9 750ms 
Sustain : 
Release : 06ms 

A percussion instrument, such as a cymbal, is characterised again by 
an immediate attack, but no sustain period as it gradually decays away 
to silence, and the parameters for that might be something like : = 

Attack : 02ms 
Decay: 9 750ms 
Sustain : 
Release : 9 750ms- 

Wind instruments, such as flutes and oboes, have a characteristically 
slow rise to maximum volume, then an intermediate sustain for as long 
as someone keeps supplying the air, and then a slow decay, perhaps 
like this : 

Attack : 10 500ms 
Decay: 8 300ms 
Sustain : 10 
Release : 9 750ms 
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The simplest one of all would be the organ, which reaches and remains 
at full volume whilst the key is pressed and until it is released again, 
whence it drops immediately to zero volume, rather like this : = 

Attack : 02ms 
Decay: 06ms 
Sustain : 15 
Release : 06ms 

Of course, the 6581 is capable of much more than just mere 
impersonation, and the many unique sounds that can be generate by 
it can only really be discovered by a lot of experimentation. 

However, a good knowledge of envelope generation will certainly 
smooth the path, and playing about with ring modulation and filtering 
can again only make life a lot easier. 
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Typical 6581 Application 
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